Condition pour vérifier si la ligne est vide
rr120
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite créer une condition pour vérifier si ma ligne n'est pas vide alors voila mon code
Private Sub CommandButton2_Click()
Dim L As Integer
L = Sheets("Section-présentation").Range("G65536").End(xlUp).Row + 1
With Sheets("Section-présentation")
.Range("A" & L).Value = TextBox1.Value
.Range("B" & L).Value = ComboBox2.Value
.Range("C" & L).Value = TextBox3.Value
If Not CheckBox2.Value = True And (deuxième condition pour vérifier si la ligne est vide) Then(faire ca)
.Range("D" & L).Value = "aaaaaa"
.Range("E" & L).Value = "aaaaa"
.Range("F" & L).Value = "aaaaaa"
.Range("G" & L).Value = "aaaaaa"
Else(si non faire ca)
.Range("D" & L + 1).Value = "aaaaaaa"
.Range("E" & L + 1).Value = "aaaaaaa"
.Range("F" & L + 1).Value = "aaaaaaa"
.Range("G" & L + 1).Value = "aaaaaaaaaa"
End If
.
.
.
....
If CheckBox25.Value = True meme condition Then
.Range("D" & L).Value = ""
.Range("E" & L).Value = ""
End If
End With
Je souhaite créer une condition pour vérifier si ma ligne n'est pas vide alors voila mon code
Private Sub CommandButton2_Click()
Dim L As Integer
L = Sheets("Section-présentation").Range("G65536").End(xlUp).Row + 1
With Sheets("Section-présentation")
.Range("A" & L).Value = TextBox1.Value
.Range("B" & L).Value = ComboBox2.Value
.Range("C" & L).Value = TextBox3.Value
If Not CheckBox2.Value = True And (deuxième condition pour vérifier si la ligne est vide) Then(faire ca)
.Range("D" & L).Value = "aaaaaa"
.Range("E" & L).Value = "aaaaa"
.Range("F" & L).Value = "aaaaaa"
.Range("G" & L).Value = "aaaaaa"
Else(si non faire ca)
.Range("D" & L + 1).Value = "aaaaaaa"
.Range("E" & L + 1).Value = "aaaaaaa"
.Range("F" & L + 1).Value = "aaaaaaa"
.Range("G" & L + 1).Value = "aaaaaaaaaa"
End If
.
.
.
....
If CheckBox25.Value = True meme condition Then
.Range("D" & L).Value = ""
.Range("E" & L).Value = ""
End If
End With
1 réponse
-
Bonjour,
And (deuxième condition pour vérifier si la ligne est vide) je pense que c'est une plage de cellule vide, autrement c'est un peu balot d'avoir ecrit dans les cellules de A a C au debut.
compte de cellules vides dans une plage:
x = Application.CountBlank(Range("A2:F2"))
faire un test de x qui doit etre egal au nombre de cellules