Explication code Vba ?

Calvus · 6 Février 2015

Bonjour le forum,

Voici ce que j'ai écrit :

Code:

Sub test()
With Sheets("feuil1").Select

.Range("g3,i3,k3,g6,i6,k6").Value = "Vide"
End With
End Sub

Ça fonctionne.

Or :

Code:

Sub test()
With Sheets("feuil1":"feuil3").Select

.Range("g3,i3,k3,g6,i6,k6").Value = "Vide"
End With
End Sub

ne fonctionne pas ! Pourquoi ?

Code:

Sheets("feuil1", "feuil3").Select

non plus évidemment.

J'ai bien sûr cherché sur le forum, et modifié comme suit :

Code:

Sub test()
With Sheets(Array("feuil1", "feuil2")).Select

Range("g3,i3,k3,g6,i6,k6").Value = "Vide"
End With
End Sub

Seulement le changement ne se fait que sur la première feuille.

J'ai réussi à un moment à faire une inscription sur 3 feuilles, mais je ne sais plus comment.

Sinon faudrait il écrire : Case Is = 1, 2, 3..etc ?

Pouvez vous donc m'expliquer ce qu'il faut comprendre dans la sélection multiple de feuilles ?

Merci

Paf · 6 Février 2015

Re : Explication code Vba ?

Re et bonjour Si...

A voir concrètement, si on peut jouer sur les noms de feuilles (s'ils s'y prêtent).

par exemple
ne traitera pas les feuilles dont le nom se termine par Trimestre
If Not(Worksheets(i).Name Like "*Trimestre" ) Then

ne traitera pas les feuilles dont le nom commence par janvier
If Not(Worksheets(i).Name Like "janvier*" ) Then

A+

Si... · 6 Février 2015

Re : Explication code Vba ?

re tous 😉

on en revient toujours à la même chose :
quand le contexte n'est pas connu, la précision de la réponse est à la mesure de celle de la question 😎 !

Merci mapomme pour ta simplification !

Calvus · 6 Février 2015

Re : Explication code Vba ?

Re,

mapomme à dit:
Bonsoir Calvus,

Il faut bien que la procédure sache sur quelles feuilles elle doit agir. Sans indiquer les noms des feuilles, comment le saurait elle ?

A moins de vouloir le faire sur toutes les feuilles par une boucle (excepté quelques feuilles) :

Merci Mapomme, il me manquait le "and"

Si... à dit:
re re

je répondais à la deuxième proposition de PaF en disant que le problème était le même et je ne connais pas de méthode simple pour éviter de citer tous les cas .

Garder ou exclure la démarche est la même "il faut les citer". En cas de nombres différents, on prendra les moins nombreux.

C'est plus simple dans ce cas d'exclure une feuille ou deux sur 48 non ?

Re merci Paf, Si..

A+

Calvus · 6 Février 2015

Re : Explication code Vba ?

Si,

Pour le contexte, c'est pour te faire cogiter.... 😉

Staple1600 · 6 Février 2015

Re : Explication code Vba ?

Bonsoir à tous

[acte de prosélytisme pour : FillAcrossSheets ]
Pour tester lancer la macro dans un classeur avec plusieurs feuilles dont une nommée MODELE
NB: voir dans l'aide VBA les 3 valeurs possibles de XlFillWith
PS: elles sont accessibles directement dans le code de teste grâce à Intellisense

VB:

Sub teste()
a Worksheets("MODELE"), xlFillWithAll
End Sub
Private Sub a(source As Worksheet, typeCopie As XlFillWith)
'adapté d'une de mes anciennes réponses
'http://www.excel-downloads.com/forum/190116-code-dans-workbook-ou-dans-un-module-pour-45-feuilles-dun-classeur-excel-2007-a-post1180504.html#post1180504
Dim arrWSN() As String, i%
'crée un tableau avec le nom de toutes les feuilles du classeur actif
ReDim arrWSN(1 To ActiveWorkbook.Sheets.Count)
For i = 1 To Worksheets.Count
arrWSN(i) = Sheets(i).Name
Next i
source.Range("g3,i3,k3,g6,i6,k6").Value = "Vide"
Worksheets(arrWSN).FillAcrossSheets source.Range("g3:k6"), typeCopie
End Sub

[/acte de prosélytisme pour : FillAcrossSheets ]

Calvus · 6 Février 2015

Re : Explication code Vba ?

Re,

T'es impayable Staple ! 😎

Je comprends strictement rien à tes codes, mais j'y reviendrai quand je serai grand.
Pour l'instant je suis en 1ère année de maternelle.
Mais je vais grandir ! 😀

Et merci pour ceux plus avancés qui cherchent encore à progresser.

Si... · 6 Février 2015

Re : Explication code Vba ?

re re re

Staple😀, l y a des publicités qui sont agréables à regarder mais qui ne sont pas bien adaptées au produit.
Comment fais-tu quand il faut ne sélectionner que certains onglets ?

Calvus, tu me laisses cogiter. Comme je n'aime pas les patates avec des arêtes de bar beau (ou de bo bar), je me concocte des recettes personnelles. Encore faut-il savoir ce qu'il y a vraiment au menu :
des feuilles (de salade) à garder, des feuilles (de chou) à exclure ?
Je choisis donc un tablier de sapeur (pour éteindre le feu que je viens d'allumer et que j'ai découvert il y a peu dans un bouchon).

Explication code Vba ?

Calvus

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

Discussions similaires

Explication code Vba ?

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency