bonjour,


voici mon petit probleme:

je voudrais fusionner deux listes mais avec une condition: que la valeur contenue dans la colonne B soit copier dans la colonne A que si A est vide.

merci

salut,

regarde la première source sur l apage d'acceuil.

c'est du VB6, tu peux donc éditer la FrmMain.frm avec notepad
++

---

Prenez un instant pour répondre à ce sondage svp  

oula, désolé mais je suis débutant, alors j'ai compris que la moitié de ton message

regarde la première source sur l apage d'acceuil.
page d'accueil : http://www.vbfrance.com/
première source : http://www.vbfrance.com/codes/GESTION-LISTES-FUSION-COMPARAISON-TRI_47216.aspx

c'est du VB6, tu peux donc éditer la FrmMain.frm avec notepad
la source contient un ZIP
une fois extrait tu as plusieurs fichiers, dont un qui s'appelle FrmMain.frm
c'est une FORM, en VB6
çà correspond à tes USERFORM en VBA (puisque tu as classé ta question en VBA)

• Vous êtes ici : Thèmes / Visual Basic 6 / Langages dérivés / VBA / fusion sous condition

je suppose donc que tu n'as pas VB6, tu ne pourras donc pas lire/ouvrir ce fichier.
néanmoins avec notepad (le bloc-notes windows) tu peux lire le contenu

les langages VBA et VB6 ayant une syntaxe relativement similaire, tu devrais t'y retrouver...

---

Prenez un instant pour répondre à ce sondage svp  

désolé, mais je comprends rien, j'en ai pour 1 an a déchiffrer tout ca, je vais chercher une autre solution, merci quand meme

Bonjour,

  j'ai eu une solution sur "01net"

Merci a tous quand meme et a+

n'hésite pas à la mettre ici, ou le lien, pour ceux qui utilisent le forum avec le moteur :)

Voici la macro que j'ai eu sur "01net" et qui a résolu mon probleme.


Sub test()
Dim Cel As Range
For Each Cel In Range([B1], [B65536].End(xlUp))
If Not (IsEmpty(Cel)) And IsEmpty(Cel.Offset(0, -1)) Then _
Cel.Offset(0, -1) = Cel
Next Cel
End Sub


pour toutes les cellules de la plage B1 à dernière non-vide en B
si B n'est pas vide et A (cellule de la colonne d'avant) est vide alors A=B

Cordialement