incrémenter une colonne avec un user form

4 réponses

sqv

31/07/2006 à 12:55

Bonjour,

Je désire à l'aide d'un user form incrémenter une liste dans une colonne
d'une feuille excel
La première valeur est mise en B4, puis en B5, puis en B6....etc chaque fois
que je rentre une valeur dans le user form.

J'ai trouvé sur excel labo (merci Misange!) une macro que j'ai essayé de
modifier et qui ne fonctionne plus .

Si je supprime :".End(xlDown).Offset(1, 0).Value" la macro fonctionne mais
la valeur se retrouve en B4 uniquement.

Private Sub ChkToday_Click()
If ChkToday.Value = True Then
TxtDate3.Value = Format(Now(), "dd/mmm/yyyy")
Range("juil!B4").End(xlDown).Offset(1, 0).Value = TxtDate3.Value
'ajoute le vin à liste sur la page codes
'Range("codes!B2").End(xlDown).Offset(1, 0).Value = TxtVin.Value
Unload UserForm1
End If
End Sub

Au secouuuuuuuuuuuuurs!

Attention néophyte!!!.

Si il y a une personne qui n'a pas encore les pieds dans l'eau merci
d'avance.

Laurent.

4 réponses

Daniel

31/07/2006 à 14:20

Si je supprime :".End(xlDown).Offset(1, 0).Value" la macro fonctionne mais
la valeur se retrouve en B4 uniquement.

Bonjour.
Et si tu ne supprimes rien, qu'est-ce qui se passe ?
Cordialement.
Daniel

sqv

31/07/2006 à 14:57

merci Daniel de t'occuper de mon cas,

si je laisse :".End(xlDown).Offset(1, 0).Value"
petit message d'erreur très explicite (pour moi?) :

erreur d'execution '1004'
erreur définie par l'application ou par l'objet

j'ai essayé de regarder l'aide en ligne pour "End(xlDown)" et "Offset" mais
je n'ai pas tout compris (même rien du tout)

est ce que j'ai oublié de déclarer quelque chose?

Merci par avance.

"Daniel" a écrit dans le message de news:
%

Si je supprime :".End(xlDown).Offset(1, 0).Value" la macro fonctionne
mais la valeur se retrouve en B4 uniquement.

Bonjour.
Et si tu ne supprimes rien, qu'est-ce qui se passe ?
Cordialement.
Daniel

Daniel

31/07/2006 à 16:22

Si la cellule B3 a une valeur non nulle, mets :
Range("juil!B65536").End(xlUp).Offset(1, 0).Value = Txtdate3.Value
au lieu de :
Range("juil!B4").End(xlDown).Offset(1, 0).Value = TxtDate3.Value
Daniel
"sqv" a écrit dans le message de news:

merci Daniel de t'occuper de mon cas,

si je laisse :".End(xlDown).Offset(1, 0).Value"
petit message d'erreur très explicite (pour moi?) :

erreur d'execution '1004'
erreur définie par l'application ou par l'objet

j'ai essayé de regarder l'aide en ligne pour "End(xlDown)" et "Offset"
mais je n'ai pas tout compris (même rien du tout)

est ce que j'ai oublié de déclarer quelque chose?

Merci par avance.

"Daniel" a écrit dans le message de news:
%
Si je supprime :".End(xlDown).Offset(1, 0).Value" la macro fonctionne
mais la valeur se retrouve en B4 uniquement.

Bonjour.
Et si tu ne supprimes rien, qu'est-ce qui se passe ?
Cordialement.
Daniel

sqv

31/07/2006 à 16:45

Ca maaaaaaaaaaaaaarche!!!
Pas tout compris, mais ça marche.
Je suis obligé de caler en B3 pour obtenir ma première valeur en B4 mais
c'est pas grave.

Grandement merci.

"Daniel" a écrit dans le message de news:
%

Si la cellule B3 a une valeur non nulle, mets :
Range("juil!B65536").End(xlUp).Offset(1, 0).Value = Txtdate3.Value
au lieu de :
Range("juil!B4").End(xlDown).Offset(1, 0).Value = TxtDate3.Value
Daniel

incrémenter une colonne avec un user form

4 réponses

Veuillez sélectionner un problème