Discussion :

[afssaLERH]

Bonjour,

je dois completer une feuille excel à l'aide d'un userForm qui me recupere la date, un resultat et une osbservation.
J'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub valider_Click()
valeurDate = EntreDate.Value
valeurDate = Format(EntreDate.Value, "MM/DD/YYYY")
valeurResultat = EntreResultat.Value
valeurObservation = EntreObservation.Value
Val (valeurResultat)
'ActiveSheet.Cells.Range("B17") = valeurDate
ActiveSheet.Cells.Range("C17") = valeurResultat
ActiveSheet.Cells.Range("E17") = valeurObservation
End Sub

Maintenant ce que je voudrais c'est qu'au lieu d'aller à la ligne 17 ca aille automatiquement à la premiere ligne B, C, E qui soit vide. j'ai essayer de faire une fonction qui retrournerai cette ligne mais je n'y arrive pas.
Quelqu'un a-t-il une solution ?.??

Merci

[Jean-Philippe André]

bonjour, regarde ce que tu peux avoir avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

offset(activecell.end(xlEnd),11).

[afssaLERH]

je n'arrive pas à utiliser la fonction offset...
Desolée mais je debute complet en vb donc...

[Jean-Philippe André]

le meilleur aide pour les fonction est celui intégré à office : après le nom dont tu ignores la signification ou la syntaxe, tape F1, ca te donnera pas mal d'infos

[afssaLERH]

ok merci... mais je ne vois pas en quoi cette fonction va me donner la premiere ligne vide de ma colonne...

[Jean-Philippe André]

bon allez tiens kdo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(1).Range("A65536").End(xlUp).Row