Si cellule non vide alors remplir cellule voisine

[fx62]

Bonjour le forum,

J'ai réussi, avec l'aide du forum, à créer une macro effectuant ceci :

• Si C1 est remplie alors ne rien faire
• Si C1 est vide et si A1 est remplie, alors remplir cellule C1 avec "RAS"

Je voudrais effectuer ceci sur une sélection (ex : A1 jusque A20).
J'avais essayer en remplaçant Range("A1") par Range("A1:A20") mais cela n'a pas fonctionné.

Je mets en pièce jointe un fichier simplifié pour exemple.

PS : J'utilise des cellules fusionnées, peut-être cela crée des problèmes ... je ne sais pas !

Merci pour votre aide,

fx62

 

[fx62]

Re : Si cellule non vide alors remplir cellule voisine

Si je n'ai pas été assez clair, faites le moi savoir svp.

J'attend vos retours,

Merci,

fx62

 

[Robert]

Re : Si cellule non vide alors remplir cellule voisine

Bonjour Fx, bonjour le forum,

peut-être comme ça :

Sub Cellule_non_vide_test()
For Each cel In Sheets("Feuil1").Range("A1:A20")
    If cel.Offset(0, 2).Value = "" And cel.Value <> "" Then
        cel.Offset(0, 2).Value = "RAS"
    End If
Next cel
End Sub

 

[fx62]

Re : Si cellule non vide alors remplir cellule voisine

Robert,

Tout d'abord merci de ta réponse et désolé de n'avoir pu donner un retour plus tôt !

Ton code fonctionne parfaitement lorsque mes colonnes A et B ne sont pas fusionnées. Or j'ai besoin que ces deux colonnes soient fusionnées !
Ce qui me surprend le plus, c'est que mes colonnes C et D peuvent rester fusionnées, cela ne pose pas de problème.

Saurais-tu comment pallier à ce problème ?

Encore merci,
fx62

 

[Robert]

Re : Si cellule non vide alors remplir cellule voisine

Bonjour Fx, bonjour le forum,

Avec les cellules fusionnées :

Sub Cellule_non_vide_test()
For Each cel In Sheets("Feuil1").Range("A1:A20")
    If cel.Offset(0, 1).Value = "" And cel.Value <> "" Then
        cel.Offset(0, 1).Value = "RAS"
    End If
Next cel
End Sub

 

[fx62]

Re : Si cellule non vide alors remplir cellule voisine

Un grand merci Robert, cela fonctionne à la perfection.
J'aurais encore appris un nouveau code aujourd'hui grâce à toi. En effet je ne connaissais pas la fonction cel.Offset(ligne,colonne).
Encore merci et à bientôt,
fx62