Probleme d'affectation aux cellule formulaire

zanzib -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

j'ai créer un petit formulaire qui va alimenter un fichier excel,
en remplissant les champs et en cliquant sur OK, mes texts sont rangés dans des cellules, pas de probleme jusque la !
mais quand les cellules de reception contiennent déja des valeures, il faudrait que mes textes se rangent dans les cellules d'a coté.
J'ai bien essayé ce code, mais cela ne marche pas; quelqu'un aurait la solution?

If ListBox1 = "Q2201" Then
Range("B2").Value = NumCom
Range("C2").Value = NomCom
If B2 > 0 Then
Range("D2").Value = NumCom
Range("E2").Value = NomCom
End If
End If

Merci de votre aide

1 réponse

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour,
essaies

If ListBox1 = "Q2201" Then
col_vide = Range("IV2").End(xlToLeft).Column + 1
Cells(2, col_vide) = nomcomm
Cells(2, col_vide + 1) = nomcomm
End If
0