Condition pour vérifier si la ligne est vide
rr120
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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
A voir également:
- Condition pour vérifier si la ligne est vide
- Excel cellule couleur si condition texte - Guide
- Partager photos en ligne - Guide
- Supprimer page word vide - Guide
- Aller à la ligne excel - Guide
- Verifier compatibilite windows 11 - Guide
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
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
