|
|
|
|
Configuration: Windows XP Firefox 3.0
Bonjour,
tu fais la même chose que pour trouver la dernière cellule vide sauf que dans la condition, tu rajoutes les autres colonnes. Tøƒ
|
vais-je utiliser la fonction "End(xlDown)" ? |
j'ai finalement utiliser ce bout de code en me disant que si les 10 premieres cellules était vide alors la ligne serait surrement entierement vide
Function ligne_vide() As Integer ligne_vide = 1 While ActiveSheet.Cells(ligne_vide, 1) <> "" _ Or ActiveSheet.Cells(ligne_vide, 2) <> "" _ Or ActiveSheet.Cells(ligne_vide, 3) <> "" _ Or ActiveSheet.Cells(ligne_vide, 4) <> "" _ Or ActiveSheet.Cells(ligne_vide, 5) <> "" _ Or ActiveSheet.Cells(ligne_vide, 6) <> "" _ Or ActiveSheet.Cells(ligne_vide, 7) <> "" _ Or ActiveSheet.Cells(ligne_vide, 8) <> "" _ Or ActiveSheet.Cells(ligne_vide, 9) <> "" ligne_vide = ligne_vide + 1 Wend MsgBox "ligne vide" & ligne_vide End Function Merci
|
Résultats pour VBA recherche derniere ligne vide
Résultats pour VBA recherche derniere ligne vide
Résultats pour VBA recherche derniere ligne vide
Résultats pour VBA recherche derniere ligne vide
Résultats pour VBA recherche derniere ligne vide