Tester donnees dans colonne.

[whooki]

Bonjour,


J'aimerais réaliser une macro lorsqu'il y a quelque chose d'écrit dans une cellule de la colonne B, qu'il me renvoi 1 automatiquement dans la colonne A, sur la même ligne, que le test là, ce réalise sur toute la colonne B.

merci par avance

 

[bbb38]

Re : Tester donnees dans colonne.

Bonsoir whooki, le forum,
Exemple ci-joint.
Cordialement,
Bernard

 

[roro69]

Re : Tester donnees dans colonne.

Bonjour
a essayer🙁 a adapter à ton nom de feuille)

Sub RenvoyerUnDansColonne()
Dim MaPlage, cel As Range
Set MaPlage = Feuil1.Range("B2", Feuil1.Range("B65536").End(xlUp))
For Each cel In MaPlage
If cel = "" Then cel.Offset(1, 0) = "1"

Next cel

End Sub

A++

 

[whooki]

Re : Tester donnees dans colonne.

Merci pour ces réponses, j'ai testé ce matin, et ça fontionne super bien.

Merci encore