Bonjour =E0 Toutes et =E0 Tous,
je souhaiterais masquer ou supprimer les colonnes dont=20
les cellules sont vides ou bien =E9gales =E0 z=E9ro.
j'ai essay=E9 ceci, mais sans succ=E8s.
Sub masqCol()
Range("c39:z39").Select
For Each Cells In Selection
If cell.Value =3D "" Then EntireColumn.Hidden =3D True
End If
Next
End Sub
O=F9 est l'erreur?
Merci de suivre,
freedo
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
ru-th
Salut
non testé for i=3 to 26 if cells(39,i)="" or cells(39,i)=0 then columns(i).hidden=true next
a+ rural thierry
"Freedo" a écrit dans le message de news: 11f201c3923e$e4dd1e70$ Bonjour à Toutes et à Tous, je souhaiterais masquer ou supprimer les colonnes dont les cellules sont vides ou bien égales à zéro. j'ai essayé ceci, mais sans succès. Sub masqCol() Range("c39:z39").Select For Each Cells In Selection If cell.Value = "" Then EntireColumn.Hidden = True End If Next End Sub Où est l'erreur? Merci de suivre, freedo
Salut
non testé
for i=3 to 26
if cells(39,i)="" or cells(39,i)=0 then columns(i).hidden=true
next
a+
rural thierry
"Freedo" <faf@wanty.be> a écrit dans le message de news:
11f201c3923e$e4dd1e70$a101280a@phx.gbl...
Bonjour à Toutes et à Tous,
je souhaiterais masquer ou supprimer les colonnes dont
les cellules sont vides ou bien égales à zéro.
j'ai essayé ceci, mais sans succès.
Sub masqCol()
Range("c39:z39").Select
For Each Cells In Selection
If cell.Value = "" Then EntireColumn.Hidden = True
End If
Next
End Sub
Où est l'erreur?
Merci de suivre,
freedo
non testé for i=3 to 26 if cells(39,i)="" or cells(39,i)=0 then columns(i).hidden=true next
a+ rural thierry
"Freedo" a écrit dans le message de news: 11f201c3923e$e4dd1e70$ Bonjour à Toutes et à Tous, je souhaiterais masquer ou supprimer les colonnes dont les cellules sont vides ou bien égales à zéro. j'ai essayé ceci, mais sans succès. Sub masqCol() Range("c39:z39").Select For Each Cells In Selection If cell.Value = "" Then EntireColumn.Hidden = True End If Next End Sub Où est l'erreur? Merci de suivre, freedo
non testé for i=3 to 26 if cells(39,i)="" or cells(39,i)=0 then columns(i).hidden=true next
a+ rural thierry
"Freedo" a écrit dans le message de news: 11f201c3923e$e4dd1e70$ Bonjour à Toutes et à Tous, je souhaiterais masquer ou supprimer les colonnes dont les cellules sont vides ou bien égales à zéro. j'ai essayé ceci, mais sans succès. Sub masqCol() Range("c39:z39").Select For Each Cells In Selection If cell.Value = "" Then EntireColumn.Hidden = True End If Next End Sub Où est l'erreur? Merci de suivre, freedo
"ru-th" <ailleurs@nowhere> a écrit dans le message de news:
#sJ5TLkkDHA.2528@TK2MSFTNGP12.phx.gbl...
Salut
non testé
for i=3 to 26
if cells(39,i)="" or cells(39,i)=0 then columns(i).hidden=true
next
a+
rural thierry
"Freedo" <faf@wanty.be> a écrit dans le message de news:
11f201c3923e$e4dd1e70$a101280a@phx.gbl...
Bonjour à Toutes et à Tous,
je souhaiterais masquer ou supprimer les colonnes dont
les cellules sont vides ou bien égales à zéro.
j'ai essayé ceci, mais sans succès.
Sub masqCol()
Range("c39:z39").Select
For Each Cells In Selection
If cell.Value = "" Then EntireColumn.Hidden = True
End If
Next
End Sub
Où est l'erreur?
Merci de suivre,
freedo
non testé for i=3 to 26 if cells(39,i)="" or cells(39,i)=0 then columns(i).hidden=true next
a+ rural thierry
"Freedo" a écrit dans le message de news: 11f201c3923e$e4dd1e70$ Bonjour à Toutes et à Tous, je souhaiterais masquer ou supprimer les colonnes dont les cellules sont vides ou bien égales à zéro. j'ai essayé ceci, mais sans succès. Sub masqCol() Range("c39:z39").Select For Each Cells In Selection If cell.Value = "" Then EntireColumn.Hidden = True End If Next End Sub Où est l'erreur? Merci de suivre, freedo
AV
Pour supprimer :
Sub supCol() With [C39:Z39] .Replace What:="0", Replacement:="" .SpecialCells(xlCellTypeBlanks).EntireColumn.Delete End With End Sub
AV
"Freedo" a écrit dans le message news: 11f201c3923e$e4dd1e70$ Bonjour à Toutes et à Tous, je souhaiterais masquer ou supprimer les colonnes dont les cellules sont vides ou bien égales à zéro. j'ai essayé ceci, mais sans succès. Sub masqCol() Range("c39:z39").Select For Each Cells In Selection If cell.Value = "" Then EntireColumn.Hidden = True End If Next End Sub Où est l'erreur? Merci de suivre, freedo
Pour supprimer :
Sub supCol()
With [C39:Z39]
.Replace What:="0", Replacement:=""
.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End With
End Sub
AV
"Freedo" <faf@wanty.be> a écrit dans le message news:
11f201c3923e$e4dd1e70$a101280a@phx.gbl...
Bonjour à Toutes et à Tous,
je souhaiterais masquer ou supprimer les colonnes dont
les cellules sont vides ou bien égales à zéro.
j'ai essayé ceci, mais sans succès.
Sub masqCol()
Range("c39:z39").Select
For Each Cells In Selection
If cell.Value = "" Then EntireColumn.Hidden = True
End If
Next
End Sub
Où est l'erreur?
Merci de suivre,
freedo
Sub supCol() With [C39:Z39] .Replace What:="0", Replacement:="" .SpecialCells(xlCellTypeBlanks).EntireColumn.Delete End With End Sub
AV
"Freedo" a écrit dans le message news: 11f201c3923e$e4dd1e70$ Bonjour à Toutes et à Tous, je souhaiterais masquer ou supprimer les colonnes dont les cellules sont vides ou bien égales à zéro. j'ai essayé ceci, mais sans succès. Sub masqCol() Range("c39:z39").Select For Each Cells In Selection If cell.Value = "" Then EntireColumn.Hidden = True End If Next End Sub Où est l'erreur? Merci de suivre, freedo
Bonjour Thierry, merci beaucoup pour ta réponse, Tout fonctionne impeccable, Merci Cordialement, Freedo
-----Message d'origine----- Salut
non testé for i=3 to 26 if cells(39,i)="" or cells(39,i)=0 then columns (i).hidden=true
next
a+ rural thierry
"Freedo" a écrit dans le message de news: 11f201c3923e$e4dd1e70$ Bonjour à Toutes et à Tous, je souhaiterais masquer ou supprimer les colonnes dont les cellules sont vides ou bien égales à zéro. j'ai essayé ceci, mais sans succès. Sub masqCol() Range("c39:z39").Select For Each Cells In Selection If cell.Value = "" Then EntireColumn.Hidden = True End If Next End Sub Où est l'erreur? Merci de suivre, freedo
.
Bonjour Thierry,
merci beaucoup pour ta réponse,
Tout fonctionne impeccable, Merci
Cordialement,
Freedo
-----Message d'origine-----
Salut
non testé
for i=3 to 26
if cells(39,i)="" or cells(39,i)=0 then columns
(i).hidden=true
next
a+
rural thierry
"Freedo" <faf@wanty.be> a écrit dans le message de news:
11f201c3923e$e4dd1e70$a101280a@phx.gbl...
Bonjour à Toutes et à Tous,
je souhaiterais masquer ou supprimer les colonnes dont
les cellules sont vides ou bien égales à zéro.
j'ai essayé ceci, mais sans succès.
Sub masqCol()
Range("c39:z39").Select
For Each Cells In Selection
If cell.Value = "" Then EntireColumn.Hidden = True
End If
Next
End Sub
Où est l'erreur?
Merci de suivre,
freedo
Bonjour Thierry, merci beaucoup pour ta réponse, Tout fonctionne impeccable, Merci Cordialement, Freedo
-----Message d'origine----- Salut
non testé for i=3 to 26 if cells(39,i)="" or cells(39,i)=0 then columns (i).hidden=true
next
a+ rural thierry
"Freedo" a écrit dans le message de news: 11f201c3923e$e4dd1e70$ Bonjour à Toutes et à Tous, je souhaiterais masquer ou supprimer les colonnes dont les cellules sont vides ou bien égales à zéro. j'ai essayé ceci, mais sans succès. Sub masqCol() Range("c39:z39").Select For Each Cells In Selection If cell.Value = "" Then EntireColumn.Hidden = True End If Next End Sub Où est l'erreur? Merci de suivre, freedo
.
Freedo
Bonjour Alain, merci beaucoup pour ton aide, avec ta solution qui fonctionne très bien je pourrai également l'adapter à d'autres situations aussi. Cordialement Freedo
-----Message d'origine----- Pour supprimer :
Sub supCol() With [C39:Z39] .Replace What:="0", Replacement:="" .SpecialCells(xlCellTypeBlanks).EntireColumn.Delete End With End Sub
AV
"Freedo" a écrit dans le message news: 11f201c3923e$e4dd1e70$ Bonjour à Toutes et à Tous, je souhaiterais masquer ou supprimer les colonnes dont les cellules sont vides ou bien égales à zéro. j'ai essayé ceci, mais sans succès. Sub masqCol() Range("c39:z39").Select For Each Cells In Selection If cell.Value = "" Then EntireColumn.Hidden = True End If Next End Sub Où est l'erreur? Merci de suivre, freedo
.
Bonjour Alain,
merci beaucoup pour ton aide, avec ta solution qui
fonctionne très bien je pourrai également l'adapter à
d'autres situations aussi.
Cordialement
Freedo
-----Message d'origine-----
Pour supprimer :
Sub supCol()
With [C39:Z39]
.Replace What:="0", Replacement:=""
.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End With
End Sub
AV
"Freedo" <faf@wanty.be> a écrit dans le message news:
11f201c3923e$e4dd1e70$a101280a@phx.gbl...
Bonjour à Toutes et à Tous,
je souhaiterais masquer ou supprimer les colonnes dont
les cellules sont vides ou bien égales à zéro.
j'ai essayé ceci, mais sans succès.
Sub masqCol()
Range("c39:z39").Select
For Each Cells In Selection
If cell.Value = "" Then EntireColumn.Hidden = True
End If
Next
End Sub
Où est l'erreur?
Merci de suivre,
freedo
Bonjour Alain, merci beaucoup pour ton aide, avec ta solution qui fonctionne très bien je pourrai également l'adapter à d'autres situations aussi. Cordialement Freedo
-----Message d'origine----- Pour supprimer :
Sub supCol() With [C39:Z39] .Replace What:="0", Replacement:="" .SpecialCells(xlCellTypeBlanks).EntireColumn.Delete End With End Sub
AV
"Freedo" a écrit dans le message news: 11f201c3923e$e4dd1e70$ Bonjour à Toutes et à Tous, je souhaiterais masquer ou supprimer les colonnes dont les cellules sont vides ou bien égales à zéro. j'ai essayé ceci, mais sans succès. Sub masqCol() Range("c39:z39").Select For Each Cells In Selection If cell.Value = "" Then EntireColumn.Hidden = True End If Next End Sub Où est l'erreur? Merci de suivre, freedo
