macro ??

[news]

Bonsoir à tous du forum,

ne me connais plus tant avec les macro,

comment créer une nouvelle feuille dès que nouveau nom
et que cette feuille a ce nom choisi ?

comment on select nom sous une zone de liste déroulante et que le curser va sur dernière row de la feuille de ce nom choisi,

merci de vos astuces,

 

[GIBI]

Re : macro ??

Bonsoir,

Il est très difficile de comprendre votre français et donc l'objet de votre question.

J'ai regardé votre classeur Excel, si j'ai compris ce que vous essayer de faire il faut tester la cellule E2 qui change de valeur en cas de sélection d'un nom de fournisseur, car sur la cellule C2 ne provoque pas l'événement "Change"

GIBI

 

[BERRACHED said]

Re : macro ??

Salut,News

j'ai essayé ce code ça marcher :

Sub ajoute_feuille()
 Sheets.Add.Name = Sheets("menu fourn.").Range("c2").Value
 Sheets("exemple fourn.").Range("A1:G6").Copy
 ActiveSheet.Paste
End Sub

Cordialement

 

[news]

Re : macro ??

merci de vos réponses,

j'essaie de mieux expliquer,

besoin d'une macro,
dés qu'on choisie un fournisseur de la liste déroulante E2, que le curser va sur la feuille de ce fournisseur,

si un fournisseur n'existe pas dans la liste déroulante E2,
à ajouter ce nouveau fournisseur sur la feuille "liste_fournisseurs",

en même temps créer une nouvelle feuille nommée avec ce nouveau nom de fournisseur et reprendre les données de ligne 1 à 5 de la feuille "exemple fourn." sur cette nouvelle feuille,

Sub ajoute_feuille()
Sheets.Add.Name = Sheets("menu fourn.").Range("c2").Value
Sheets("exemple fourn.").Range("A1:G6").Copy
ActiveSheet.Paste
End Sub

ce code fonctionne, mais si la feuille existe déjà, reçoit le message que la feuille existe déjà,
comment éviter les doublons, ??
la macro "ajouter une feuille", doit être activée en sélectionnant un fournisseur de la liste déroulante E2

ci-joint fichier modifié,

 

[GIBI]

Re : macro ??

Re bonsoir,

Pour éviter les doublons, vous pouvez tester l'existence d'une feuille avant une création


On Error Resume Next
Sheets("Feuil1").Activate ' activer la feuille à créer
Le code err.number = 9 si la feuille n'existe pas

GIBI

 

[news]

Re : macro ??

Bonjour à tous du forum,

merci GIBI pour astuce,

problème de doublons est résolu,

j'ai fait diverses modifications, mais, euh, des bug restants: 🙁

step 1 : on Worksheet "liste_fournisseurs" de créer pour chaque fournisseur existant dans la colonne A3:A100, une feuille

step 2 : dés qu'on choisie un fournisseur de la liste déroulante E2, activate ce WorkSheet

step 3 : si un fournisseur n'existe pas dans la liste déroulante E2, y ajouter ce nouveau fournisseur sur la feuille "liste_fournisseurs",
en même temps créer une nouvelle feuille nommée avec ce nouveau fournisseur
et reprendre les données de ligne 1 à 5 de la feuille "exemple fourn." dans cette nouvelle feuille

ci-joint fichier explicite

 

[news]

Re : macro ajouter des feuilles ??

Bonsoir,

j'ai fait des ajoutes et résolu certains bugs et relance le fil

Comment on peut créer pour chaque nom figurant dans une liste (colonne C2:C100)
une nouvelle feuille et que chaque feuille a les noms figurant sous C2:C100) ?

Si on select de la liste déroulante le nom par exemple "divers asurances, taxes, voiture"
la nouvelle feuille n'est pas nommée ainsi, par contre est nommé par défaut la feuille "Feuil1"
Est-ce que le texte du nom est trop long ?
Comment résoudre ceci ?

Comment on peut indiquer que les nouveaux onglets des feuilles sont ajoutés et positionnés tout à droite de la liste des onglets ?

'

 

[news]

Re : macro ??

Bonsoir à tous du forum,

Comment on peut indiquer que les nouveaux onglets des feuilles sont ajoutés et positionnés tout à droite de la liste des onglets ?

macro résolue:

Sub mettre_fin_onglets()
Dim cn As Long
cn = Sheets.Count
Sheets.Add After:=Sheets(cn)
ActiveSheet.Name = Sheets("menu_fourn.").Range("c2").Value
Range("C15").Select
End Sub

Bonne soirée encore,