Problème d'écriture VBA

Le
Didier NOVARIN
Bonsoir,
Je souhaite écrire quelque chose comme cela, mais cela me renvoi une erreur
4..
Je vous remercie
Didier

Sub Test()
Dim cellule As Range
Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row).Value
For Each cellule In Plg
If cellule <> "" Then
cellule.Select
End If
Next
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
francois.forcet
Le #5425941
Salut à toi

Il ne faut pas utiliser en tant que variable le Mot cellule qui doit
être une dénomination qu'Excel utilise pour son propre fonctionnement

Utilise plustôt une lettre comme "c"

celà donne :

Dim cellule As Range
Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row).Value
For Each c In Plg
If c <> "" Then
c.Select
End If
Next

Fais un essai et dis moi !!!!
Philippe.R
Le #5425931
Bonsoir,
Essaye comme ceci :

Sub Test()
Dim cellule As Range
Set Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row)
For Each cellule In Plg
If cellule.Value <> "" Then
cellule.Select
End If
Next
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
"Didier NOVARIN" de news:47f3d128$0$21143$
Bonsoir,
Je souhaite écrire quelque chose comme cela, mais cela me renvoi une
erreur 4..
Je vous remercie
Didier

Sub Test()
Dim cellule As Range
Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row).Value
For Each cellule In Plg
If cellule <> "" Then
cellule.Select
End If
Next
End Sub



Didier NOVARIN
Le #5425921
Bonsoir,
Il plante sur c.Select
Merci quand même
Didier

Sub AA()
Dim cellule As Range
Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row).Value
For Each c In Plg
If c <> "" Then
c.Select
End If
Next
End Sub


Salut à toi

Il ne faut pas utiliser en tant que variable le Mot cellule qui doit
être une dénomination qu'Excel utilise pour son propre fonctionnement

Utilise plustôt une lettre comme "c"

celà donne :

Dim cellule As Range
Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row).Value
For Each c In Plg
If c <> "" Then
c.Select
End If
Next

Fais un essai et dis moi !!!!
Didier NOVARIN
Le #5425911
Bonsoir Philippe
Là, il me sélectionne que la dernière cellule, en fait, je voudrais que la
procédure sélectionne toute les cellules non vide
Merci
Didier


"Philippe.R"
Bonsoir,
Essaye comme ceci :

Sub Test()
Dim cellule As Range
Set Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row)
For Each cellule In Plg
If cellule.Value <> "" Then
cellule.Select
End If
Next
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
"Didier NOVARIN" de news:47f3d128$0$21143$
Bonsoir,
Je souhaite écrire quelque chose comme cela, mais cela me renvoi une
erreur 4..
Je vous remercie
Didier

Sub Test()
Dim cellule As Range
Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row).Value
For Each cellule In Plg
If cellule <> "" Then
cellule.Select
End If
Next
End Sub






Philippe.R
Le #5425891
Re,
Cosi alors :

Sub Test()
Dim c As Range, maplage As String
Set Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row)
For Each c In Plg
If c.Value <> "" Then
zaza = c.Address
maplage = maplage & IIf(maplage = "", "", ",") & zaza
End If
Next
If maplage <> "" Then Range(maplage).Select
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
"Didier NOVARIN" de news:47f3d405$0$21142$
Bonsoir Philippe
Là, il me sélectionne que la dernière cellule, en fait, je voudrais que la
procédure sélectionne toute les cellules non vide
Merci
Didier


"Philippe.R"
Bonsoir,
Essaye comme ceci :

Sub Test()
Dim cellule As Range
Set Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row)
For Each cellule In Plg
If cellule.Value <> "" Then
cellule.Select
End If
Next
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
"Didier NOVARIN" message de news:47f3d128$0$21143$
Bonsoir,
Je souhaite écrire quelque chose comme cela, mais cela me renvoi une
erreur 4..
Je vous remercie
Didier

Sub Test()
Dim cellule As Range
Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row).Value
For Each cellule In Plg
If cellule <> "" Then
cellule.Select
End If
Next
End Sub










francois.forcet
Le #5425881
Rebonjours à toi

Et comme celà c'est mieux ????

For Each c In Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row)
If c <> "" Then
c.Select
End If
Next

Dis Moi !!!!
Didier NOVARIN
Le #5425861
Bonsoir Philippe,
C'est exactement cela parfait !!!
Mille merci et bonne soirée
Didier

"Philippe.R"
Re,
Cosi alors :

Sub Test()
Dim c As Range, maplage As String
Set Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row)
For Each c In Plg
If c.Value <> "" Then
zaza = c.Address
maplage = maplage & IIf(maplage = "", "", ",") & zaza
End If
Next
If maplage <> "" Then Range(maplage).Select
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
"Didier NOVARIN" de news:47f3d405$0$21142$
Bonsoir Philippe
Là, il me sélectionne que la dernière cellule, en fait, je voudrais que
la procédure sélectionne toute les cellules non vide
Merci
Didier


"Philippe.R" news:
Bonsoir,
Essaye comme ceci :

Sub Test()
Dim cellule As Range
Set Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row)
For Each cellule In Plg
If cellule.Value <> "" Then
cellule.Select
End If
Next
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
"Didier NOVARIN" message de news:47f3d128$0$21143$
Bonsoir,
Je souhaite écrire quelque chose comme cela, mais cela me renvoi une
erreur 4..
Je vous remercie
Didier

Sub Test()
Dim cellule As Range
Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row).Value
For Each cellule In Plg
If cellule <> "" Then
cellule.Select
End If
Next
End Sub













Modeste
Le #5425841
Bonsour® Philippe.R avec ferveur ;o))) vous nous disiez :

Cosi alors :

Sub Test()
Dim c As Range, maplage As String
Set Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row)
For Each c In Plg
If c.Value <> "" Then
zaza = c.Address
maplage = maplage & IIf(maplage = "", "", ",") & zaza
End If
Next
If maplage <> "" Then Range(maplage).Select
End Sub


é perqué no cosi ???
Sub Test()
Dim plg As Range, sel As Range
On Error Resume Next
Set plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row) '.Value
Application.Union(plg.SpecialCells(xlCellTypeFormulas, 23),
plg.SpecialCells(xlCellTypeConstants, 23)).Select
End Sub


--
@+
;o)))

Mgr.Abile
Le #5425751
Bonjour Modeste,
perqué ?
Mais parce que c'est mieux !
;o))
--
News://news.microsoft.com/microsoft.public.fr.excel
Allez en paix
T.Abile
"Modeste" news:%23USsf%
Bonsour® Philippe.R avec ferveur ;o))) vous nous disiez :

Cosi alors :

Sub Test()
Dim c As Range, maplage As String
Set Plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row)
For Each c In Plg
If c.Value <> "" Then
zaza = c.Address
maplage = maplage & IIf(maplage = "", "", ",") & zaza
End If
Next
If maplage <> "" Then Range(maplage).Select
End Sub


é perqué no cosi ???
Sub Test()
Dim plg As Range, sel As Range
On Error Resume Next
Set plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row) '.Value
Application.Union(plg.SpecialCells(xlCellTypeFormulas, 23),
plg.SpecialCells(xlCellTypeConstants, 23)).Select
End Sub


--
@+
;o)))





Modeste
Le #5425631
Bonsour® Mgr.Abile avec ferveur ;o))) vous nous disiez :

Bonjour Modeste,
perqué ?
Mais parce que c'est mieux !
;o)))

là c'est mieux !!!
Sub Test()
Dim plg As Range, FRML As Range, CSTS As Range
On Error Resume Next
'-----------plage ligne courante A:Z
Set plg = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row) '.Value
'-----------plage avec formules
Set FRML = plg.SpecialCells(xlCellTypeFormulas, 23)
'-----------plage avec constantes
Set CSTS = plg.SpecialCells(xlCellTypeConstants, 23)

If FRML Is Nothing Then
If CSTS Is Nothing Then
MsgBox "pas de cellule documentée", vbInformation, "plage " & plg.Address
Exit Sub
Else
CSTS.Select
End If
Else
If CSTS Is Nothing Then
FRML.Select
Else
Application.Union(CSTS, FRML).Select
End If
End If

End Sub


--
--
@+
;o)))

Publicité
Poster une réponse
Anonyme