VBA : déclarer des plages multiples en une plage Résolu/Fermé

Question

Bonjour,

J'ai un classeur avec de multiples onglets comptant différents tableaux aux mesures différentes et je fais un bouton d'effacement de toutes les données de tous les tableaux.

Est-il possible dans une déclaration de plage de rassembler en 1 seule déclaration tous mes noms de plages pour ne faire qu'une seule commande ?

Là, j'ai tout déclaré et chaque plage possède sa propre commande, identique finalement à la plage précédente et suivante à savoir ".clearcontents" (extrait du code). ça fonctionne. :

Sub EraseAll()Dim SOdR As WorksheetSet SOdR = Sheets("Ordre de relevé")Dim SC As WorksheetSet SC = Sheets("Cuve")Dim SSTE As WorksheetSet SSTE = Sheets("Stock TE")Dim PlageSODR As RangeDim PlageSC As RangeDim PlageSSTE As RangeSet PlageSODR = Union(SOdR.Range("B6:x61"), SOdR.Range("z6:Al61"), SOdR.Range("an6:bl61"), SOdR.Range("bn6:cs61"))Set PlageSC = Union(SC.Range("B12:C68"), SC.Range("e12:f68"), SC.Range("h12:i68"))Set PlageSSTE = SSTE.Range("B5:h60")PlageSODR.ClearContentsPlageSC.ClearContentsPlageSSTE.ClearContentsEnd Sub

Je cherche un moyen de tout rassembler, je pensais rajouter ça mais ça ne fonctionne pas :

Dim Allplages as rangeset Allplages = PlageSODR & PlageSC & PlageSSTEAllplages.clearcontents

C'est probablement ridicule, mais j'ai essayé avec + comme pour un calcul, et And aussi au cas où, sans résultat...
Est-ce seulement possible ??

Merci !!

eriiic · Answer

Bonjour,

tu pourrais nommer tes plages et boucler sur les noms pour les détecter et les effacer.
Mais pour 3 ça ne vaut vraiment pas le coup.
eric

ptitpanda · Answer

Bonjour,

J'avais tellement planché dessus il y a 2 ans que je peux t'affirmer qu'à ma connaissance il n'est pas possible de "former" une plage avec des plages différentes de différentes feuilles.
Le Clearcontents ne s'effectuera que sur la feuille active.

Si les plages étaient sur la même feuille c'est faisable mais pas sur différentes feuilles (en parlant bien de plages différentes bien sur).

Bonne journée

stitchbouck · Answer

OK merci à tous les deux pour vos retours !!

Bon, ça va j'ai 10 feuilles en tout et donc 10 tableaux, ça reste gérable.

Je ne vais donc pas m'arracher les cheveux là-dessus, ce n'était que de la recherche 
d'estético-efficacité, ça fonctionne très bien en décomposant chaque plage.

Merci à vous !

eriiic · Answer

pour 10, ça peut se discuter
Effacer toutes les plages nommées dont le nom commence par Plage :
    Dim nm As Name, tmp
    For Each nm In ThisWorkbook.Names
        If Left(LCase(nm.Name), 5) = "plage" Then
            tmp = Split(Mid(nm.RefersTo, 2), "!")
            Worksheets(tmp(0)).Range(tmp(1)).ClearContents
        End If
    Next nm
avec pour autre avantage que si le plages évoluent (en taille ou en nombre) il n'y a que les noms à modifier, le code reste inchangé.
eric

pijaku · Answer

Bonjour,

Ou alors, en saisissant, dans l'ordre, un Array Feuille et un Array Plage, on y parvient.

Sub EraseAll()
Dim WshName As Variant, RngAddress As Variant, i As Integer
    WshName = Array("Feuil2", "Feuil6", "Feuil4", "Feuil3", "Feuil5", "Feuil1")
    RngAddress = Array("A2:F18", "B6:X61, Z6:AL61", "B12:C68, e12:f68, h12:i68", "A1", "R190:PP191", "$C$2:$C$11,$E$7:$E$11,$G$11")
    For i = LBound(WshName) To UBound(WshName)
        With Worksheets(WshName(i))
            .Range(RngAddress(i)).ClearContents
        End With
    Next i
End Sub

stitchbouck · Answer

Merci à tous !

je teste tout ça mardi !!

Un grand merci pour votre aide :)

pijaku · Answer

Encore plus simple, avec des adresses de Range qui incluent le nom de la feuille...

Exemple :
Dim MesPlages As Variant, i As Integer
    MesPlages = Array("Feuil2!$B$5,$E$13,$C$5:$D$13", "Feuil1!$A$1", "Feuil3!B12:C68, e12:f68, h12:i68")
    For i = LBound(MesPlages) To UBound(MesPlages)
        Range(MesPlages(i)).ClearContents
    Next

stitchbouck · Answer

Bonjour !!

comme dis, on est mardi et j'ai pu essayer tout ça. la seule que j'arrive à faire fonctionner c'est celle de Pijaku !! Et comme pour les trois, il m'a d'abord fallu décrypter, partiellement au moins, ce qu'il se passe.

Celle de Franck, il me fait une "erreur range de l'objet global a échoué" sur la ligne
    Range(MesPlages(i)).ClearContents
Je le fais sur un classeur neuf, 3 feuilles créées. SI je lis bien, c'est une contraction de ce que propose Pijaku, c'est ça ?

Celle d'Eric, il ne me dit pas d'erreur, mais après le "then" il va directe au end if, et passe au nom suivant, avec le même résultat.
Sur un classeur neuf, j'ai fait 3 plages nommées type "essai1", "essai2" etc... via gestionnaire et via référence. On voit au pas à pas qu'il comprend bien qu'il y a 3 noms, mais ils ne répondent pas au critères du if, critères que je ne comprends pas non plus...
En fait, si c'est possible, je veux bien une explication, pour mon apprentissage. ce que je trouve sur le net ne veut rien dire dans ce cas présent. je trouve pour Left(LCase : recherche le caractère le plus à gauche, et convertit-le en minuscule... m'est avis qu'il y a quelque chose qui m'échappe^^

Pour les 2 j'ai mis dans un module... c'est peut-être ça qui ne va pas ?

stitchbouck · Answer

haaaa mais ok j'avais mal compris !! oui, donc je continue de les nommer "plage" mais via gestionnaire de nom.

ok pour la sensibilité ! 

Merci :) En même temps ça me sert de base pour continuer et remployer ces codes, mais si je ne les ai pas compris, c'est bien plus chaud pour les remployer^^. 

et je viens de voir que Franck = Pijaku lol ! je me disais, "mais bon sang, j'ai bien vu un Franck quelque part !!"
Oui parce que la, en revanche, autant la méthode "longue" fonctionne autant la "raccourcie" ne veut rien savoir.

En tout cas merci à tous !! c'est quand même plus propre, moins redondant quoi.

stitchbouck · Answer

bonjour,

Sauf que je suis sur un classeur neuf :) donc en Feuil1 etc...

Sub essai()Dim MesPlages As Variant, i As Integer    MesPlages = Array("Feuil2!$B$5,$E$13,$C$5:$D$13", "Feuil1!$A$1", "Feuil3!B12:C68, e12:f68, h12:i68")    For i = LBound(MesPlages) To UBound(MesPlages)        Range(MesPlages(i)).ClearContents    NextEnd Sub
Je copie colle ce code, et ça ne fonctionne pas. A la ligne avant Next, il m'indique une erreur : erreur d'exécution 1004 - la méthode "range" de l'objet "_global" a échoué.

Sur ce même classeur tout neuf, je colle votre 1er code 
Sub EraseAll()Dim WshName As Variant, RngAddress As Variant, i As Integer    WshName = Array("Feuil2", "Feuil6", "Feuil4", "Feuil3", "Feuil5", "Feuil1")    RngAddress = Array("A2:F18", "B6:X61, Z6:AL61", "B12:C68, e12:f68, h12:i68", "A1", "R190:PP191", "$C$2:$C$11,$E$7:$E$11,$G$11")    For i = LBound(WshName) To UBound(WshName)        With Worksheets(WshName(i))            .Range(RngAddress(i)).ClearContents        End With    Next iEnd Sub

Elle fonctionne sans erreurs. j'ai pu l'adapter sans problème, d'ailleurs, merci :)

Pour en revenir à la seconde, j'imagine que chez vous elle fonctionne tel quel non ? alors pourquoi chez moi, classeur neuf et macro activée, elle indique une erreur ? il ya 6 feuilles de créées sur le classeur, donc je sais que ça ne vient pas de là...
J'ai essayé aussi en ajoutant "i" au next, comme sur la macro longue mais ça ne change rien. 

... J'ai même relancé le pc, des fois ça lui fait du bien... aucune variation.
Je dis ça pour info, parce que comme dit plus haut, j'ai adapté le 1er code. C'est juste de la curiosité ! :p

stitchbouck · Answer

ha oui, nickel !! ok donc chaque plage doit avoir son nom de feuille systématiquement.
Compris,

Merci !!

stitchbouck · Answer

J'ai essayé autre chose mais je ne sais pas si c'est à mettre sur un post résolu.
J'ai essayé, au lieu de nettoyer les cellules, de les copier (pour d'autres travaux sans lien avec celui-là), mais je ne sais pas trop vers quelle syntaxe me tourner...

J'ai un peu la même problématique, à savoir plusieurs feuilles en déclaration, plusieurs plages aux quelles j'applique les mêmes commandes mais pas pour les mêmes destinations. Et qui dit copier dit coller...
Du coup, ça me paraissait bien, mais je n'arrive pas à l'appliquer. Là j'essai de copier les cellules feuille 2 b5 et feuille 2 e13 vers feuille 3 a1 et feuille 3 a5 ; pour l'exemple évidemment, car sinon c'est plus gros que juste 2 cellules :) 

Sub essai()Dim MesPlages As Variant, i As Integer    MesPlages = Array("Feuil2!$B$5", "Feuil2!$E$13")Mesplages2 = array("Feuil3!a1", "feuil3!a5")    For i = LBound(MesPlages) To UBound(MesPlages)        Range(MesPlages(i)).copy    Next   Range(mesplages2).pasteEnd Sub

Je m'en sors avec un code fonctionnel mais très redondant (extrait du code, pour un exemple concret) :

Sub mail_frn()Dim SHPa As WorksheetSet SHPa = ThisWorkbook.Worksheets("Projet abonnement")Dim SHLFRN As WorksheetSet SHLFRN = ThisWorkbook.Worksheets("Liste FRN")Dim FR1 As WorksheetSet FR1 = ThisWorkbook.Worksheets("FRN1")Dim FR2 As WorksheetSet FR2 = ThisWorkbook.Worksheets("FRN2")Dim Plagefrn1 As RangeSet Plagefrn1 = SHPa.Range("A4:q20")Dim Plagefrn2 As RangeSet Plagefrn2 = SHPa.Range("a23:q46")Application.ScreenUpdating = FalseIf SHPa.Cells(3, 3) = SHLFRN.Columns(1).Find(What:=SHPa.Cells(3, 3), LookAt:=xlPart) ThenPlagefrn1.Copy            FR1.Activate            Cells(1, 1).Select            Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _            , SkipBlanks:=False, Transpose:=False            Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _            SkipBlanks:=False, Transpose:=False'Cells.Select'Selection.ClearEnd IfIf SHPa.Cells(22, 3) = SHLFRN.Columns(1).Find(What:=SHPa.Cells(22, 3), LookAt:=xlPart) ThenPlagefrn2.Copy            FR2.Activate            Cells(1, 1).Select            Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _            , SkipBlanks:=False, Transpose:=False            Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _            SkipBlanks:=False, Transpose:=False'Cells.Select'Selection.ClearEnd IfEnd Sub

C'est toujours le même problème quand on s'y connait pas beaucoup, on bute sur des cailloux ! :)

pijaku · Answer

Voilà, ton sujet est marqué "NON RESOLU".

Ceci étant, maintenant, si tu veux bien nous décrire précisément ce que doit faire ta macro.
Du genre :
> je veux copier Feuil1 A5:B6 vers feuil3 A6
> etc...

Donne nous tous les détails de ce que tu ferais manuellement.

stitchbouck · Answer

Ok, cool ! bon alors je termine d'abord cette version "courte" pour la poster, parce que sinon ça va être compliqué de tout expliquer. Je pourrais m'appuyer dessus pour illustrer ses fonctions et montrer où je pêche !

Merci en tout cas !!

stitchbouck · Answer

BOnjour,

à la réflexion je vais clore ce sujet-ci car le prochain n'a finalement pas de rapport direct (comme dit avant, c'est un autre dossier que je mène, et les embranchements sont trop variés).
Pour celui-là, c'est bon et j'ai même réussi à faire fonctionner les 3 méthodes. D'ailleurs, pour le nom des feuilles, pas d'espace ! il n'aime pas du tout. J'ai renommer toutes mes feuilles avec des underscores et hop, tout s'est bien passé.

Dès que j'ai fini, je posterai ici un lien vers le sujet suivant...

Un très grand merci pour votre aide, et votre patience !!

stitchbouck · Answer

haa c'était ça. ok, merci.

Bon comme dit, ci dessous le lien pour un nouveau sujet évoqué ici... Et au final, j'ai l'impression qu'il n'y a pas de rapport. Enfin, de mon point de vu de béotien^^

https://forums.commentcamarche.net/forum/affich-37031464-envoi-de-plusieurs-mails-selon-tableau-dynamique?fn2EzC74UE1goTEuLFA_HUZm9xdP6R0zDz0CyyiN0jY

Quoiqu'il en soit, merci à vous pour l'aide déjà apporté.

VBA : déclarer des plages multiples en une plage

16 réponses

Discussions similaires