Forum d'assistance informatique - LM2I

nom du fichier avec le chemin d'acces:

Code: Tout sélectionner

       ActiveWorkbook.FullName

recup du repertoire du fichier:

Code: Tout sélectionner

       Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - Len(ActiveWorkbook.Name))

recuperer les nb_caractere de texte en partant de la gauche:

Code: Tout sélectionner

Left(texte, nb_caractere)

nombre de caractere de la variable:

Code: Tout sélectionner

Len(variable)

nom du fichier:

Code: Tout sélectionner

       ActiveWorkbook.Name

vider le presse papier:

Code: Tout sélectionner

Application.CutCopyMode = False

copier la case selectionner:

Code: Tout sélectionner

Selection.Copy

coller:

Code: Tout sélectionner

ActiveSheet.Paste

collage special valeur:

Code: Tout sélectionner

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

inserer une formule dans la cellule active:

Code: Tout sélectionner

ActiveCell.FormulaR1C1 = " blabla "

Se deplacer de 1 case vers le bas et de 3 case vers la droite:

Code: Tout sélectionner

ActiveCell.Offset(1, 3).Activate

bloquer l'actualisation de l'affichage durant une macro:

Code: Tout sélectionner

Application.ScreenUpdating = False

debloquer l'actualisation de l'affichage durant une macro:

Code: Tout sélectionner

Application.ScreenUpdating = True

afficher un formulaire

Code: Tout sélectionner

UserForm1.Show

masquer un formulaire:

Code: Tout sélectionner

UserForm1.Hide