je désire copier 2 onglets dans un nouveau classeur.
Jusque là je sais faire: Sheets(Array("feuil1","feuil2")).Copy
Mais il se trouve qu'un onglet n'est pas connu à l'avance il est
récupérer par la sélection d'une listbox:
soit onglet = userform.listbox1.value
je n'arrive pas à intégrer la syntaxe dans sheets(Array(.........
(avec cet onglet en premier)
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
MichDenis
Bonsoir GA,
Essaie ceci : Adapte le nom de la feuille dans la procédure :
'---------------------- Dim Arr(), A As Integer 'pour ajouter la feuille dont tu connais le nom
ReDim Preserve Arr(A) Arr(A) = "Feuil1" 'Celle que tu connais à l'avance ... With Worksheets("Feuil1") If .ComboBox1.ListIndex <> -1 Then ReDim Preserve Arr(A + 1) Arr(1) = .ComboBox1.Text End If End With
Sheets(Arr).Copy '----------------------
Salutations!
"Ga" a écrit dans le message de news: % boujour,
je désire copier 2 onglets dans un nouveau classeur. Jusque là je sais faire: Sheets(Array("feuil1","feuil2")).Copy Mais il se trouve qu'un onglet n'est pas connu à l'avance il est récupérer par la sélection d'une listbox: soit onglet = userform.listbox1.value
je n'arrive pas à intégrer la syntaxe dans sheets(Array(......... (avec cet onglet en premier)
merci pour votre aide
Cordialement
Ga
Bonsoir GA,
Essaie ceci : Adapte le nom de la feuille dans la procédure :
'----------------------
Dim Arr(), A As Integer
'pour ajouter la feuille dont tu connais le nom
ReDim Preserve Arr(A)
Arr(A) = "Feuil1" 'Celle que tu connais à l'avance ...
With Worksheets("Feuil1")
If .ComboBox1.ListIndex <> -1 Then
ReDim Preserve Arr(A + 1)
Arr(1) = .ComboBox1.Text
End If
End With
Sheets(Arr).Copy
'----------------------
Salutations!
"Ga" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %2347ORg2JFHA.2628@tk2msftngp13.phx.gbl...
boujour,
je désire copier 2 onglets dans un nouveau classeur.
Jusque là je sais faire: Sheets(Array("feuil1","feuil2")).Copy
Mais il se trouve qu'un onglet n'est pas connu à l'avance il est
récupérer par la sélection d'une listbox:
soit onglet = userform.listbox1.value
je n'arrive pas à intégrer la syntaxe dans sheets(Array(.........
(avec cet onglet en premier)
Essaie ceci : Adapte le nom de la feuille dans la procédure :
'---------------------- Dim Arr(), A As Integer 'pour ajouter la feuille dont tu connais le nom
ReDim Preserve Arr(A) Arr(A) = "Feuil1" 'Celle que tu connais à l'avance ... With Worksheets("Feuil1") If .ComboBox1.ListIndex <> -1 Then ReDim Preserve Arr(A + 1) Arr(1) = .ComboBox1.Text End If End With
Sheets(Arr).Copy '----------------------
Salutations!
"Ga" a écrit dans le message de news: % boujour,
je désire copier 2 onglets dans un nouveau classeur. Jusque là je sais faire: Sheets(Array("feuil1","feuil2")).Copy Mais il se trouve qu'un onglet n'est pas connu à l'avance il est récupérer par la sélection d'une listbox: soit onglet = userform.listbox1.value
je n'arrive pas à intégrer la syntaxe dans sheets(Array(......... (avec cet onglet en premier)
