Macro pour que certaines valeurs entrent directement dans certaines cellule

Bonjour à tous !

Je suis totalement novice en macro (j'ai fait la découverte des macros la semaine dernière) et je galère un peu (beaucoup).

J'ai créer une macro permettant de dupliquer un modèle en fonction d'une liste d'individus (à l'aide de module trouvés ici); il s'agit de la création de feuilles de routes pour des bénévoles d'un festival.

J'aimerai pouvoir faire en sorte que les cellules G2 qui est celle du nom du bénévole, F4 qui est celle du numéro de téléphone du bénévole et H26 qui est celle du régime alimentaire du bénévole se complètent automatiquement à la création des feuilles à partir des données entrées sur la feuille ref. Avez vous une solution ou un codage à entrer? Je vous joint le fichier pour que ce soit plus compréhensible.

Si vous pouvez m'expliquer la façon de faire ce serait top, j'ai un peu de mal à saisir ce que je fais et y parvenir par moi même ensuite.

26benevole.xlsm (96.88 Ko)

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

33benevole-v1.xlsm (44.88 Ko)

Bye !

Bonjour Geoffrey , bonjour GMB

Je vois que GMB a pris le temps de supprimer les cellules nommées de l'onglet BASE qui gènent lors de la dupplication.

J'avais à peut prés le même genre de code.

Sub ajouter()

Dim nbligne As Long
nbligne = Worksheets("ref").Range("A65536").End(xlUp).Row

For i = 2 To nbligne
Dim nomprenom As String
nomprenom = Worksheets("ref").Range("A" & i).Value
If Not feuille_existe(nomprenom) Then
Sheets("base").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nomprenom
Range("G2").Value = Worksheets("ref").Range("A" & i).Value
Range("F4").Value = Worksheets("ref").Range("B" & i).Value
Range("H26").Value = Worksheets("ref").Range("C" & i).Value
End If
Next i

End Sub

J'ai utiliser la macro de GMB, elle marche super bien merci milles fois !

Rechercher des sujets similaires à "macro que certaines valeurs entrent directement"