Si cellule non vide alors remplir cellule voisine

F

fx62

XLDnaute Junior

• 21 Juillet 2011

• #2

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 21 Juillet 2011

• #3

Re : Si cellule non vide alors remplir cellule voisine

Bonjour Fx, bonjour le forum,

peut-être comme ça :

Code:

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

 

Vote positif 0 Vote négatif

F

fx62

XLDnaute Junior

• 22 Juillet 2011

• #4

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

 

Dernière édition: 22 Juillet 2011

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Juillet 2011

• #5

Re : Si cellule non vide alors remplir cellule voisine

Bonjour Fx, bonjour le forum,

Avec les cellules fusionnées :

Code:

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

 

Vote positif 0 Vote négatif

F

fx62

XLDnaute Junior

• 22 Juillet 2011

• #6

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

 

Vote positif 0 Vote négatif