probleme d'affectation aux cellule formulaire

Question

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

michel_m · Answer

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

Probleme d'affectation aux cellule formulaire

1 réponse

Discussions similaires

Newsletters