Sommaire                                                   Excel

Astuces informatiques

PROVERBES DU MONDE.
Africains, Arabes, Allemands, Chinois, Russes, Québequois...

HUMOUR

AUTEURS
Camus,   Nietzsche,   Einstein, Desproges, Wolinski, Lacan, Gracian,  Cioran....

Pyramide des ages : http://www.excel-exercice.com/index.php?lang=1&var1=4-3-1 

Pour aller d'excel 2003 à excel 2007 : Télécharger le fichier trouvé sur :  http://office.microsoft.com/fr-fr/excel/HA100860481036.aspx#3 

Transformer un tableau de francs en euros : sélectionner le taux de l'euro, copier, collage spécial, valeur, division.

=RECHERCHEV(cellule_lue; plage_selectionnee; numero_colonne; faux)

celulle_lue : il s'agit de la cellule où Excel lit la valeur qui entraîne la recherche
tableau : il s'agit de la plage de cellules où Excel recherche les valeurs
numéro_de_colonne : il s'agit du numéro de la colonne du tableau où Excel doit trouver la valeur cherchée  

La lecture se fait sur les premières colonnes de chaque tableau.

Il est préférable que le tableau qui contient la plage sélectionnée soit triée en ordre croissant. La plage sélectionnée doit être nommée en référence absolue A1:C3 devenant $A$1:$C$3 ou en donnant un nom.

Si l'argument est VRAI (ou 1), Excel prend la valeur inférieure la plus proche s'il ne trouve pas la valeur exacte.
Si l'argument est FAUX (ou 0), Excel renvoie la valeur exacte, ou un message d'erreur s'il ne trouve pas de valeur exacte.
Si l'argument est omis, Excel lui attribue par défaut la valeur VRAI.

formule miracle qui permet d'être sur qu'un chiffre soit bien reconnu comme un chiffre et ne soit pas en fait un "texte". car si c'est un texte cela empêche les calculs.

Assemble plusieurs chaînes de caractères de façon à n'en former qu'une seule =CONCATENER("Nom";B6) B6 étant la cellule où il y a le numéro. " " : entre guillemets, c'est du texte.

On peut remplacer concatener par := "texte1" & "texte2"

On peut faire toute une phrase : =CONCATENER("la facture s'élève à ";C4;" ";"euros")

Dans la liste Choisir un type de cryptage, optez pour RC4, Microsoft Enhanced Cryptographic Provider v1.0. Conservez la valeur 128 dans le champ Longueur de clé, cochez l'option Crypter les propriétés du document puis validez par OK. Confirmez votre mot de passe, puis cliquez deux fois sur OK.

=NB(CA:C11) Compte le nombre de valeur.

=MAX(C4:C11) trouve la valeur maxi =MIN(C5:C12) trouve la valeur mini

Important : pour qu'un programme se fasse : 10 lignes. Pour vérifier l'environnement : 90 lignes....
Raccourci clavier, pour voir la macro : alt F11

Structure d'une macro :
Sub
Toute macro se termine par end sub

Au début d'une macro, ne pas se positionner sur la première opération.

Tout ce qui est à droite d'une apostrophe ', c'est du commentaire, non exécutable, mais important pour qu'on se rappelle ce qu'on a voulu faire. Se met en vert.

Débogage :
F8 : pour exécuter pas à pas

Insertion d'une macro :
alt f11, puis insertion module
sub titi()
msgbox ("bonjour")
puis entrée, et end sub s'affiche.  Titi est le nom de la macro. Mettre un bouton dans la feuille excel et le lier à la macro. Pour que le bouton prenne la forme des cellules, appuyer sur alt en même temps qu'on dessine le bouton.

Sub toto()
son_nom = InputBox(" tu es qui ?")
MsgBox (" ok tu peux bosser. Bonjour " & son_nom)
End Sub
 

ouverture automatique d'une macro :
 mettre le nom de la macro. Toto, dans ce cas.
Sub auto_open()
toto
End Sub

Important :
Lecture cellule :  variable contenu =activecell.value
Ecriture cellule : activecell.value=contenu variable
 

Commencer une nouvelle macro : enregistrement relatif ou non.

boîte à outils contrôle différent de formulaires
Boîte à outils contrôle : on écrit dans la feuille
Formulaire : on écrit dans le module.

Condition simple : if   then    else

Les boites :
afficher bonjour : msgbox ("bonjour")
Mettre un message sur deux lignes :   MsgBox (" ok tu peux bosser" & VbCrLf & " Bonjour " & son_nom)

Sub Test()
  Dim Ctr As Integer
  For Ctr = 1 To 10
    Cells(Ctr, 1) = "ca marche"
  Next
End Sub

Range("A5:A10")(3) = "Trois"

Ecrit Trois dans la 3ème cellule a partir de la première cellule sélectionnée. La première est donc A5, la 2ème A6, et la 3ème A7. Excel écrit donc dans A7.

Sub test()
  For Ctr = 1 To 5
    Range("A5:A10")(Ctr) = Ctr
  Next
End Sub

Ecriture dans une autre feuille du classeur :
Sheets("Nom de la feuille.Range("B6") = "Je suis dans une autre feuille"

Mise en rouge de cette même cellule : Sheets("Nom de la feuille").Range("B6").Font.Color = 255

Ecriture dans une autre feuille du classeur :
Windows("Autreclasseur.xls").Activate
Sheets("Janvier").Range("B11") = "toto"

Afficher un message avec oui ou non :

Sub tata()
rep = MsgBox("aimez vous le rock ?", vbYesNo)
If rep = vbYes Then MsgBox " ah bon"
End Sub
 

Cette boucle met la largeur des colonnes à 15

for i=1 to 10
selection.columnwidth=15
activecell.offset (0,1).select
next i

do while activecell <> ""
Selection.font.bold=true
Activecell.offset (1,0).select
Loop

collage spécial :
range ("c2:c8").Copy
range("b2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _False, Transpose:=False

copier coller :
range ("c2:c8").Copy    ou    range ("c2:c8").Copy Activecell
range("b2").Select
ActiveSheet.Paste

mets les 15 premières colonnes à largeur 13.  On nomme le compteur "compteur" ou le nom qu'on veut

Sub larg_colonne()
Range("a1").Select
For compteur = 1 To 15
Selection.ColumnWidth = 13
ActiveCell.Offset(0, 1).Select
Next compteur

End Sub
 

Sub Note()
LaNote = Application.InputBox("Votre note ?", Type:=1)
If LaNote = False Then Exit Sub
Select Case LaNote
Case 0 To 10
MsgBox "Bof"
Case 10 To 15
MsgBox "Bien"
Case 15 To 18
MsgBox "Très bien"
Case 18 To 20
MsgBox "Excellent"
Case Else
MsgBox "Impossible"
End Select
End Sub

On se retrouve dans vba
Private Sub button_saisie_click()
UserForm1.show
end sub

Terminer le mode création en cliquant sur mode création.

Mettre de la couleur dans la sélection active :
Sub coul()
Selection.Interior.ColorIndex = 4
End Sub

Mettre de la couleur dans la sélection pré-déterminée :
Sub couleur()
Range("A3:b8").Interior.ColorIndex = 4
End Sub

Déterminer l'arc en ciel des couleurs :
Sub Arc_En_Ciel()
' Ecrit toutes les couleurs des chiffres écrits dans la colonne A (1 à 56)
Range("A1").Select
Do While ActiveCell <> ""
Num_Couleur = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Selection.Interior.ColorIndex = Num_Couleur
ActiveCell.Offset(1, -1).Select
Loop
Range("B1").Select
End Sub

Sub MacroInsertUneLigneSurDeux()
'Permet d 'insérer dans un tableau une ligne vide toutes les deux lignes (ou plus)

Dim Line As Integer
Range("A2").Select
Line = 1
Recommence:
Line = Line + 2
Rows(Line).Select
Selection.Insert Shift:=xlDown
If Line < ActiveSheet.UsedRange.Rows.Count Then
GoTo Recommence
End If
End Sub

Sub DetruireLigne()
'Ce programme supprime les lignes vides dans une plage.
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For R = DerniereLigne To 1 Step -1
If Application.CountA(Rows(R)) = 0 Then Rows(R).Delete
Next R
End Sub

Sub CelluleArrondie()
Set depart = ActiveCell
r1 = depart.Height
r2 = depart.Width
r3 = depart.Top
r4 = depart.Left

ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, _
r4, r3, r2, r1).Select
Selection.ShapeRange.Fill.Visible = msoFalse
depart.Select

End Sub