J'ai des données dans les n premieres lignes et les 3 premieres colonnes
d'une feuille
J'ai crée une variable derniere_ligne ( integer ) qui contient le numéro de
la derniere ligne non vide de ma feuille.
Je cherche à trouver une maniere efficace pour tester que dans ma feuille,
seule la zone A1 à D"derniere_ligne" par exemple contient des élément et que
tout le reste du tableau est vide.
J'ai essayé
If WorksheetFunction.CountA(Range("E:IV")) <> 0 Or
WorksheetFunction.CountA(Range("A(derniere_ligne + 1):D65536")) <> 0
que j'ai trouvé sur le forum mais cela ne fonctionne pas (j ai excel 2000).
Ai-je besoin de le signaler, je suis débutant, c'est ma premiere sub en VB !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
CAP2
Salut,
essaie de le réécrire comme ça :
Sub Cherche() Dim dercell As Integer
dercell = Range("D65536").End(xlUp).Row
If WorksheetFunction.CountA(Range("E1", "IV65536")) <> 0 Or WorksheetFunction.CountA(Range("A" & (dercell + 1), "D65536")) <> 0 Then MsgBox "Il ya du contenu ailleurs" Else: MsgBox "Toutes les autres cellules sont vides" End If
End Sub
Ca marche ?
CAP2
Salut,
essaie de le réécrire comme ça :
Sub Cherche()
Dim dercell As Integer
dercell = Range("D65536").End(xlUp).Row
If WorksheetFunction.CountA(Range("E1", "IV65536")) <> 0 Or
WorksheetFunction.CountA(Range("A" & (dercell + 1), "D65536")) <> 0 Then
MsgBox "Il ya du contenu ailleurs"
Else: MsgBox "Toutes les autres cellules sont vides"
End If
If WorksheetFunction.CountA(Range("E1", "IV65536")) <> 0 Or WorksheetFunction.CountA(Range("A" & (dercell + 1), "D65536")) <> 0 Then MsgBox "Il ya du contenu ailleurs" Else: MsgBox "Toutes les autres cellules sont vides" End If
End Sub
Ca marche ?
CAP2
Viniboy
C'est vraiment gentil de ta part. Ca fonctionne comme cela. Je vais maintenant étudier ta syntaxe pour ne pas refaire cette erreur.
"CAP2" a écrit dans le message de news: %
Salut,
essaie de le réécrire comme ça :
Sub Cherche() Dim dercell As Integer
dercell = Range("D65536").End(xlUp).Row
If WorksheetFunction.CountA(Range("E1", "IV65536")) <> 0 Or WorksheetFunction.CountA(Range("A" & (dercell + 1), "D65536")) <> 0 Then MsgBox "Il ya du contenu ailleurs" Else: MsgBox "Toutes les autres cellules sont vides" End If
End Sub
Ca marche ?
CAP2
C'est vraiment gentil de ta part.
Ca fonctionne comme cela. Je vais maintenant étudier ta syntaxe pour ne pas
refaire cette erreur.
"CAP2" <No_SpamCAP2@jzerhethth.fr> a écrit dans le message de news:
%23TLpM2ejFHA.708@TK2MSFTNGP09.phx.gbl...
Salut,
essaie de le réécrire comme ça :
Sub Cherche()
Dim dercell As Integer
dercell = Range("D65536").End(xlUp).Row
If WorksheetFunction.CountA(Range("E1", "IV65536")) <> 0 Or
WorksheetFunction.CountA(Range("A" & (dercell + 1), "D65536")) <> 0 Then
MsgBox "Il ya du contenu ailleurs"
Else: MsgBox "Toutes les autres cellules sont vides"
End If
C'est vraiment gentil de ta part. Ca fonctionne comme cela. Je vais maintenant étudier ta syntaxe pour ne pas refaire cette erreur.
"CAP2" a écrit dans le message de news: %
Salut,
essaie de le réécrire comme ça :
Sub Cherche() Dim dercell As Integer
dercell = Range("D65536").End(xlUp).Row
If WorksheetFunction.CountA(Range("E1", "IV65536")) <> 0 Or WorksheetFunction.CountA(Range("A" & (dercell + 1), "D65536")) <> 0 Then MsgBox "Il ya du contenu ailleurs" Else: MsgBox "Toutes les autres cellules sont vides" End If
