Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel tester une plage

tester une plage

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Merguez07
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" a écrit dans le message de groupe de discussion :
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




Avatar
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" a écrit dans le message de
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




Avatar
yan
Re bonjour
Ok çà marche avec "CountA"
Merci a vous deux
Yan

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

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" a écrit dans le message de
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