eastpeople
Messages postés105Date d'inscriptiondimanche 16 décembre 2007StatutMembreDernière intervention11 novembre 2008
-
29 mai 2008 à 15:48
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
3 juin 2008 à 20:40
Bonjour,
Je reposte un message car j'ai de nouveau un problème sur un de mes codes.
J'ai un textebox où on rentre des activités puis quand on valide elle se met dans excel et quand on veut en rentrer une autre, il faut qu'elle se mette en dessous de celle qui est déja inscrite.
Voila mon code:
Private Sub ok_click()
Dim Ws As Worksheet
Dim Ligne As Integer
Set Ws = Sheets("abonnements")
Ligne = Ws.Range("A2").End(xlDown).Row + 1
rep = MsgBox("Voulez-vous rentrer une autre activité ?", _
vbYesNo + vbQuestion, "Programmer une autre activité ?")
If rep = vbYes Then
ADM.Show
End If
End Sub
Avec ce code ma premiere activité se met dans A8 et la suivante recouvre la première et je ne sais pas pourquoi.
Merci de m'aider.
Bonne journée à tous.
eastpeople
Messages postés105Date d'inscriptiondimanche 16 décembre 2007StatutMembreDernière intervention11 novembre 2008 3 juin 2008 à 11:36
Bonjour, c'est bon mortalino à trouvé mes erreurs, dans ma proprièté du userform, il y avait quelque chose dans rowsource donc il prennait en compte cela avant mon code.
Mais merci quand même Molenn, les 0 dans mes cellules resteront un mystère.
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 3 juin 2008 à 20:40
En fait (juste pour préciser) RowSource est traité prioritairement par rapport au code AddItem dans l'Initialize.
Donc si tu fais RowSource = Feuil1!A2:A10, même s'il n'y a rien dedans, il va te mettre des vbNullString en tant qu'item
A l'inverse, si tu avais 1 donnée en A2, par exemple, cet Item serait placé après ceux géré par le RowSource, donc tu aurais eu ton Item de A2, 8 Items vides, et le 10eme à nouveau la valeur de la cellule A2