VbNullString

[gds35]

Bonjour mes AMIS du forums ,

je joins un p'tit fichier ; je ne sais pourquoi je n'active pas la cellule A20 pour me permettre de saisir de nouvelles données , je recherche donc la premiere ligne vide entre 18 et 31 et que variable lig soit = a la valeur de ligne premiere vide . mon message est peut etre redondant avec le précédent veuillez m'en excuser et MERCI gds35

 

[PascalXLD]

Re : VbNullString

Bonjour

il vaut mieux eviter les goto en principe c'est possible en VBA

Ton code en 1 ligne ainsi

Range("A18").End(xlDown).Offset(1, 0).Select

 

[gds35]

Re : VbNullString

Salut Pascal , je suis egalement rennais , mais un rennais completement idiot en VBA , dieu sais si grace à vs j'ai appris pas mal de chose , j'ai essayé ton code et n'arrive pas a ce qu'il fonctionne . Comment l'incorporer et ou dans le p'tit exemple envoyé ???? Merci de ta compréhension pour mon ignorance . Cordialement GDS35

 

[CB60]

Re : VbNullString

Bonjour
D'aprés l'instruction de Pascal cela donne cela:

Sub Macro1()
'
Range("A18").End(xlDown).Offset(1, 0).Select
MsgBox "DONNEES ENREGISTRE SUR :)"
'Lig = 18
'Ligne:
  '  If Cells(Lig, 1) = vbNullString Then
'MsgBox "CELLULE VIDE"
'Lig = Lig + 1
'GoTo Ligne
'Else
'Cells(Lig, 1).Activate
'MsgBox "DONNEES ENREGISTRE SUR :)"
'End If
'
End Sub

 

[PascalXLD]

Re : VbNullString

Re

En fait le code ainsi

Sub Macro1()
Range("A18").End(xlDown).Offset(1, 0).Select
End Sub

Te sélectionne la première cellule vide sous A18
Il me semble que c'est ce que tu voulais faire

 

[gds35]

Re : VbNullString

J'ai tenté de vous transmettre mon fichier complet il ne passe pas . Dommage
Cordialement gds35

 

[gds35]

Re : VbNullString

ReSalut je l'ai zippe peut etre est OK