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
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
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
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" <xyz@wanadoo.fr> a écrit dans le message de groupe de discussion :
4969ac60$0$4061$ba4acef3@news.orange.fr...
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
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
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
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" <xyz@wanadoo.fr> a écrit dans le message de
news:4969ac60$0$4061$ba4acef3@news.orange.fr...
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
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
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
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:
OlWU5k8cJHA.1132@TK2MSFTNGP05.phx.gbl...
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" <xyz@wanadoo.fr> a écrit dans le message de
news:4969ac60$0$4061$ba4acef3@news.orange.fr...
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
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