VBA première cellule Vide

[Joulsy]

Bonjour à tous,
J'ai un problème que j'ai du mal à résoudre. Je cherche à écrire dans la première cellule vide de ma colonne A le contenu de mon TextBox4 et j'ai ce code, mais ca déconne et je comprend pas pourquoi, qq'un peut m'aider.

'Ensuite pour vérifier que c'est bien une date qui a été saisie
Private Sub Validerrelogement_Click()
    If Not IsDate(TextBox4) Then
        MsgBox TextBox4 & "    Format date incorrect"
        TextBox4 = ""
       Exit Sub
          End If
        'pour rechercher la première ligne vide dans la colonne A de la feuille "Mouvement"
With Sheets("Mouvement")
   ligvid = .Columns(1).Find("*", , , , , xlPrevious).Row + 1
   .Cells(ligvide, "A") = Relogement.TextBox4.Value
End With

End Sub

Merci encore de votre aide

 

[Pierrot93]

Re : VBA première cellule Vide

Bonjour,

pour la ligne de la première cellule vide de la colonne A de la feuille active....

Dim x As Long
x = Columns(1).Find("", Cells(Rows.Count, 1), xlValues, , 1, 1, 0).Row

bonne journée
@+

 

[Joulsy]

Re : VBA première cellule Vide

Merci pour ta rapidité
Ce code je veux l'appliquer au click du commandbutton, je colle ce code ou ?

Merci encore

 

[Pierrot93]

Re : VBA première cellule Vide

Re,

bah.... en lieu et place de celui-ci....

ligvid = .Columns(1).Find("*", , , , , xlPrevious).Row + 1

Dim x As Long
x = .Columns(1).Find("", .Cells(Rows.Count, 1), xlValues, , 1, 1, 0).Row

n'oublie pas les points, puisque dans un bloc "with"....

 

[Joulsy]

Re : VBA première cellule Vide

Ok merci.
Ce code me permet de trouver la 1ère cellule vide, mais pour y insérer le texte contenu dans la Textbox 4 ca ne marche pas.
Dsl si ca te parait béotien mais je suis plutôt newbie dans le VBA.
A tout hasard je te joins le fichier. C'est dans le userform Relogement, code du commandbutton.
Merci encore.

 

[Pierrot93]

Re : VBA première cellule Vide

Re,

modifie également cette ligne en conséquence...

.Cells(x, 1) = Relogement.TextBox4.Value

 

[Joulsy]

Re : VBA première cellule Vide

Super , merci beaucoup.
Je vais essayer de continuer à coder la suite.
Pour faire référence à cette ligne mais à une colonne différente, y a une solution que je peux coller à la suite ?

 

[Pierrot93]

Re : VBA première cellule Vide

Re,

tu change le 1 par le numéro de la colonne que tu veux

.Cells(x, 1)

 

[Joulsy]

Re : VBA première cellule Vide

Pierrot est Magiqueheu ...
Merci bcp !

 

[Joulsy]

Re : VBA première cellule Vide

J'ai encore une question
Voici la suite du code mais je bloque sur un optionbutton

With Sheets("Mouvement")
   Dim x As Long
x = .Columns(1).Find("", .Cells(Rows.Count, 1), xlValues, , 1, 1, 0).Row
   .Cells(x, 1) = Relogement.TextBox4.Value
   .Cells(x, 2) = Now()
   .Cells(x, 3) = "Relogement"
   .Cells(x, 4) = Relogement.ComboBox1.Value
   .Cells(x, 5) = Relogement.TextBox1.Value
   .Cells(x, 6) = Relogement.TextBox2.Value
   .Cells(x, 7) = Relogement.TextBox3.Value
   .Cells(x, 12) = Relogement.Observation.Value
   If OptionButton4 = False Then .Cells(x, 10) = "Non"
   Else
    If OptionButton4 = Thrue Then .Cells(x, 10) = "Oui"
   End If
End With

End Sub

:

Ca me dit "Else sans IF" je dois me tromper dans la syntaxe mais je sais pas ou

Dsl, je dois te paraitre vraiment nul ...

 

[Pierrot93]

Re : VBA première cellule Vide

Re,

modifie le "if" comme suit :

If OptionButton4 = False Then
    .Cells(x, 10) = "Non"
Else
    .Cells(x, 10) = "Oui"
End If

 

[Joulsy]

Re : VBA première cellule Vide

encore merci