bonjour j'ai un petit probleme, je souhaite scanner toutes les feuilles
, et executer l'operation sur toutes les feuilles sauf acceuil, recap..
J'ai test=E9 le code suivant, mais ca ne fonctionne pas (cr=E9ation
artisanale et debutant qui plus est)
Merci pour l'aide!!
If dat <> 0 Then
For dpt =3D 1 To Sheets.Count
If sh.Name <> "recap" And sh.Name <> "convocation" And sh.Name
<> "accueil" _
Then
Range(Cells(11, 5), Cells(75, 6)).Copy
Cells(11, 5 + dat).PasteSpecial
With Selection
.EntireColumn.AutoFit
.Columns.Group
End With
Cells(11, 5 + dat).Value =3D (Year(Date))
End If
Next dpt
Else: Exit Sub
End If
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
Jacques93
Bonjour S3com,
Essaie :
Dim sh As Worksheet Dim dpt As Long
For dpt = 1 To Sheets.Count Set sh = Sheets(dpt) If sh.Name <> "recap" And _ sh.Name <> "convocation" And _ sh.Name <> "accueil" Then _ sh.Activate
...
bonjour j'ai un petit probleme, je souhaite scanner toutes les feuilles , et executer l'operation sur toutes les feuilles sauf acceuil, recap.. J'ai testé le code suivant, mais ca ne fonctionne pas (création artisanale et debutant qui plus est)
Merci pour l'aide!!
If dat <> 0 Then For dpt = 1 To Sheets.Count If sh.Name <> "recap" And sh.Name <> "convocation" And sh.Name <> "accueil" _ Then Range(Cells(11, 5), Cells(75, 6)).Copy Cells(11, 5 + dat).PasteSpecial With Selection .EntireColumn.AutoFit .Columns.Group End With Cells(11, 5 + dat).Value = (Year(Date)) End If Next dpt Else: Exit Sub End If
End Sub
-- Cordialement,
Jacques.
Bonjour S3com,
Essaie :
Dim sh As Worksheet
Dim dpt As Long
For dpt = 1 To Sheets.Count
Set sh = Sheets(dpt)
If sh.Name <> "recap" And _
sh.Name <> "convocation" And _
sh.Name <> "accueil" Then _
sh.Activate
...
bonjour j'ai un petit probleme, je souhaite scanner toutes les feuilles
, et executer l'operation sur toutes les feuilles sauf acceuil, recap..
J'ai testé le code suivant, mais ca ne fonctionne pas (création
artisanale et debutant qui plus est)
Merci pour l'aide!!
If dat <> 0 Then
For dpt = 1 To Sheets.Count
If sh.Name <> "recap" And sh.Name <> "convocation" And sh.Name
<> "accueil" _
Then
Range(Cells(11, 5), Cells(75, 6)).Copy
Cells(11, 5 + dat).PasteSpecial
With Selection
.EntireColumn.AutoFit
.Columns.Group
End With
Cells(11, 5 + dat).Value = (Year(Date))
End If
Next dpt
Else: Exit Sub
End If
For dpt = 1 To Sheets.Count Set sh = Sheets(dpt) If sh.Name <> "recap" And _ sh.Name <> "convocation" And _ sh.Name <> "accueil" Then _ sh.Activate
...
bonjour j'ai un petit probleme, je souhaite scanner toutes les feuilles , et executer l'operation sur toutes les feuilles sauf acceuil, recap.. J'ai testé le code suivant, mais ca ne fonctionne pas (création artisanale et debutant qui plus est)
Merci pour l'aide!!
If dat <> 0 Then For dpt = 1 To Sheets.Count If sh.Name <> "recap" And sh.Name <> "convocation" And sh.Name <> "accueil" _ Then Range(Cells(11, 5), Cells(75, 6)).Copy Cells(11, 5 + dat).PasteSpecial With Selection .EntireColumn.AutoFit .Columns.Group End With Cells(11, 5 + dat).Value = (Year(Date)) End If Next dpt Else: Exit Sub End If
End Sub
-- Cordialement,
Jacques.
S3com
Ok, La manip, ressemble a ce que j'ai reussi a faire. Mais le problème subsiste. Il copie les cellules egalement sur mes feuilles acceuil, recap...
Y a t'il solution pour eviter pour sauter ces feuilles. Par ex emple if sheets.name="acceuil" then dpt=dpt+1
Merci encore
Ok,
La manip, ressemble a ce que j'ai reussi a faire. Mais le problème
subsiste. Il copie les cellules egalement sur mes feuilles acceuil,
recap...
Y a t'il solution pour eviter pour sauter ces feuilles. Par ex emple if
sheets.name="acceuil" then dpt=dpt+1
Ok, La manip, ressemble a ce que j'ai reussi a faire. Mais le problème subsiste. Il copie les cellules egalement sur mes feuilles acceuil, recap...
Y a t'il solution pour eviter pour sauter ces feuilles. Par ex emple if sheets.name="acceuil" then dpt=dpt+1
Merci encore
Jacques93
Bonjour S3com,
Je crois que le test suffit pour éviter ces feuilles, par contre dans ton traitement tu devrais peut être indiquer quelles sont les feuilles source et destination de la copie.
Ok, La manip, ressemble a ce que j'ai reussi a faire. Mais le problème subsiste. Il copie les cellules egalement sur mes feuilles acceuil, recap...
Y a t'il solution pour eviter pour sauter ces feuilles. Par ex emple if sheets.name="acceuil" then dpt=dpt+1
Merci encore
-- Cordialement,
Jacques.
Bonjour S3com,
Je crois que le test suffit pour éviter ces feuilles, par contre
dans ton traitement tu devrais peut être indiquer quelles sont les
feuilles source et destination de la copie.
Ok,
La manip, ressemble a ce que j'ai reussi a faire. Mais le problème
subsiste. Il copie les cellules egalement sur mes feuilles acceuil,
recap...
Y a t'il solution pour eviter pour sauter ces feuilles. Par ex emple if
sheets.name="acceuil" then dpt=dpt+1
Je crois que le test suffit pour éviter ces feuilles, par contre dans ton traitement tu devrais peut être indiquer quelles sont les feuilles source et destination de la copie.
Ok, La manip, ressemble a ce que j'ai reussi a faire. Mais le problème subsiste. Il copie les cellules egalement sur mes feuilles acceuil, recap...
Y a t'il solution pour eviter pour sauter ces feuilles. Par ex emple if sheets.name="acceuil" then dpt=dpt+1
