Sélectionner 1er cell vide de la 2ième plage vide

[Chasse]

Bonjour le Forum
Je n'ai toujours pas trouvé de solution a mes questions de mon fil😛roblème avec une boucle If-Then
https://www.excel-downloads.com/threads/probleme-avec-une-boucle-if-then.165822/


Alors je vais tenter de poser la question différemment


Avec:

Range("A1").End(xlDown).Offset(1, 0) = "SD"

Je mets "SD" dans la 1ère cell de la1ère plage vide depuis le haut «plage verte du fichier joint»


Avec

Range("A65365").End(xlUp).End(xlUp).Offset(1, 0) = "KL"

Je mets "KL" dans la 1ère cell de la 3ième plage vide depuis le haut
«plage Bleu du fichier joint»

Comment mettre "WQ" dans la dans la 1ère cell de la 2ième plage vide depuis le haut «plage jaune du fichier joint»

Merci de votre aide

 

[Dranreb]

Re : Sélectionner 1er cell vide de la 2ième plage vide

Bonjour

Range("A11").End(xlDown).Offset(1, 0) = "WQ"

À+

 

[mécano41]

Re : Sélectionner 1er cell vide de la 2ième plage vide

Bonjour,

Ou bien en nommant les cellules A11, 120 et A30 respectivement PLBio, PLZü et PLBe :

Sub Re()
Range("PLBio").End(xlUp).Offset(1, 0) = "SD"
Range("PLZü").End(xlUp).Offset(1, 0) = "WQ"
Range("PLBe").End(xlUp).Offset(1, 0) = "KL"
End Sub

(avantage : si tu rajoutes une colonne devant ou bien des lignes intermédiaires, cela ne change rien)

Cordialement

 

[Chasse]

Re : Sélectionner 1er cell vide de la 2ième plage vide

Bonjour Jean-Marcel

Merci pour ton aide.

j'ai testé pour l'instant c'est Ok, je vais l' intégrer dans mon code original en espérant que ça joue

Cordialement

 

[Chasse]

Re : Sélectionner 1er cell vide de la 2ième plage vide

Bonjour mécano41

Je crois que je vais prendre ton idée

Merci a tous de votre aide