Sub test() 'Ajouter un onglet : ThisWorkbook.Sheets.Add 'Le renomer pour l'incrémenter : 'Au préalable, je compte le Nb d'onglets pour ajouter +1 NB_onglets = ThisWorkbook.Sheets.Count i = NB_onglets ThisWorkbook.ActiveSheet.Name = "MonOnglet_" & i 'recupérer des valeurs.. ' > 2 facons de faire : ' - Soit tu fais un "copier/coller" , ' - soit tu récupères leur valeurs (via la propriété .value) 'Exemple de "copier/coller" Sheets("Feuil1").Select Range("A1").Select Selection.Copy Sheets("MonOnglet_" & i).Select Range("A1").Select ActiveSheet.Paste 'exemple avec .value : Valeur_A_Recup = ThisWorkbook.Sheets(1).Range("B1").Value ThisWorkbook.Sheets("MonOnglet_" & i).Range("B1").Value = Valeur_A_Recup End Sub
Il serait peut être plus simple si je pouvais joindre mon excel à ce mail?
pouvoir incrémenter les Range de "Crates_list" à chaque clic
Dim Numero_Derniere_Ligne as integer Sheets("CRATES_LIST").activate Numero_Derniere_Ligne = Cells.Find("*", Range_("A1"), , ,xlByRows, xlPrevious).Row Sheets("CRATES_LIST").Range("E" & Numero_Derniere_Ligne).select ' ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub Bouton2_Clic() 'Copie de crate modele et collage Sheets("CRATE_MODELE").Select Sheets("CRATE_MODELE").Copy After:=Sheets(Sheets.Count) 'Modif du nom de la feuille NB_onglets = ThisWorkbook.Sheets.Count i = NB_onglets ThisWorkbook.ActiveSheet.Name = "CRATE_" & i - 5 '-5 car nombre d'onglet au départ 'Copie des infos poids dimensions 'Copie du poids net Sheets("CRATES_LIST").Select Range("B13").Select Selection.Copy Sheets("CRATE_" & i - 5).Select Range("A13").Select ActiveSheet.Paste 'Copie du poids brut Sheets("CRATES_LIST").Select Range("C13").Select Selection.Copy Sheets("CRATE_" & i - 5).Select Range("B13").Select ActiveSheet.Paste 'Copie de la longueur Sheets("CRATES_LIST").Select Range("D13").Select Selection.Copy Sheets("CRATE_" & i - 5).Select Range("C13").Select ActiveSheet.Paste 'Copie de la largeur Sheets("CRATES_LIST").Select Range("E13").Select Selection.Copy Sheets("CRATE_" & i - 5).Select Range("D13").Select ActiveSheet.Paste 'Copie de la hauteur Sheets("CRATES_LIST").Select Range("F13").Select Selection.Copy Sheets("CRATE_" & i - 5).Select Range("E13").Select ActiveSheet.Paste End Sub
Sub Bouton2_Clic() Dim Name As Integer 'Comptage du numéro de caisse With Range("A13:A52") Set c = .Find("", LookIn:=xlValues) c.Select End With 'Selection de la dernière cellule pour créer numéro d'onglet ActiveCell.Offset(-1, 0).Select Name = Selection.Value 'Création onglet crate "x" à partir du modèle Sheets("CRATE_MODELE").Select Sheets("CRATE_MODELE").Copy After:=Sheets(Sheets.Count) 'Renommage de l'onglet en fonction du nombre de caisses dans la crate list ThisWorkbook.ActiveSheet.Name = "CRATE_" & Name 'Copie des poids dimensions Sheets("CRATES_LIST").Select With Range("A13:A52") Set c = .Find("", LookIn:=xlValues) c.Select End With ActiveCell.Offset(-1, 0).Select Range(ActiveCell, ActiveCell.Offset(0, 5)).Select Selection.Copy 'Collage des poids dimensions dans crate_x 'Worksheets(Worksheets.Count).Select 'Range("A13:E13").Select 'ThisWorkbook.Sheets("CRATE_" & Name).Activate 'Range("A13:E13").Select 'Selection.Paste End Sub