Dissocier une cellule

[poussy67]

Bonjour le forum

je suis a la recherche d'un vba qui me permet de générer une formule si il y a une valeur dans colonne A tu m'es dans colonne Q = gauche( A14;5);"")

qui remplace cette formule si(A14>0; gauche( A14;5);"") que je suis obliger de créer et de la copier sur toute les lignes qui sont occupées.


merci d'avance

 

[pierrejean]

Re : Dissocier une cellule

bonjour poussy67

teste:

Sub test()
For n = 1 To Range("A65536").End(xlUp).Row
If Range("A" & n) <> "" Then Cells(n, 17).FormulaLocal = "=GAUCHE(A" & n & ";5)"
Next n
End Sub

 

[deudecos]

Re : Dissocier une cellule

Salut Poussy, le forum,

Outils/Macros/Nouvelle macro
Ensuite, dans la cellule concernee, tu fais ton changement de formule.
Apres ca, tu clique sur le bouton carre qui est apparu quand tu as commence l'enregistrement.
Et tu obtiens ton code vba pour l'insertion de ta formule.
Pour le visualiser : Outils/Macro/Macros... et Modifier

Bonne journee

Olivier

Salut Pierre-Jean ! T'avais po vu.

 

[poussy67]

Re : Dissocier une cellule

Impec ça marche tres bien

encore merci