tester une plage

Le
yan
Bonjour à tous
comment tester si une plage que j'ai selectionner de cette façon
ActiveCell.Offset(1, 0).Range("A1:A50").Activate
ne contient aucune valeur. Je bricole avec "isempty" depuis 30mn mais
j'arrive a rien
Merci de votre aide
Yan
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Merguez07
Le #18358981
Essaye plutôt ça

ActiveCell.Offset(1, 0).Range("A1:A50").Select
If Application.CountA(Selection) = 0 Then A = 0 Else A = 1


Xavier

"yan" 4969ac60$0$4061$
Bonjour à tous
comment tester si une plage que j'ai selectionner de cette façon
ActiveCell.Offset(1, 0).Range("A1:A50").Activate
ne contient aucune valeur. Je bricole avec "isempty" depuis 30mn mais
j'arrive a rien
Merci de votre aide
Yan




Philippe.R
Le #18359101
Bonjour,
Essaye comme ceci :

Sub tst()
If Application.WorksheetFunction. _
CountA(ActiveCell.Offset(1, 0). _
Range("A1:A50")) = 0 Then
MsgBox "La plage " & ActiveCell. _
Offset(1, 0).Range("A1:A50"). _
Address & " est vide"
End If
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"yan" news:4969ac60$0$4061$
Bonjour à tous
comment tester si une plage que j'ai selectionner de cette façon
ActiveCell.Offset(1, 0).Range("A1:A50").Activate
ne contient aucune valeur. Je bricole avec "isempty" depuis 30mn mais
j'arrive a rien
Merci de votre aide
Yan




yan
Le #18359091
Re bonjour
Ok çà marche avec "CountA"
Merci a vous deux
Yan

"Philippe.R"
Bonjour,
Essaye comme ceci :

Sub tst()
If Application.WorksheetFunction. _
CountA(ActiveCell.Offset(1, 0). _
Range("A1:A50")) = 0 Then
MsgBox "La plage " & ActiveCell. _
Offset(1, 0).Range("A1:A50"). _
Address & " est vide"
End If
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"yan" news:4969ac60$0$4061$
Bonjour à tous
comment tester si une plage que j'ai selectionner de cette façon
ActiveCell.Offset(1, 0).Range("A1:A50").Activate
ne contient aucune valeur. Je bricole avec "isempty" depuis 30mn mais
j'arrive a rien
Merci de votre aide
Yan







Publicité
Poster une réponse
Anonyme