Discussion :

[oliwood1311]

bonjour à tous ou bonsoir c'est selon
alors voila j'ai réussis à créer ma macro VBA pour mon projet, mon seul problème est que cette macro je devrais la copier 80 fois...
Je m'explique en fait ma macro rempli une ligne avec des informations via inputbox, le problème c'est que j'ai 80 lignes différentes et je voudrais ne pas faire 80 macro en changeant juste les cellule de destination...
voici mon code qqun a une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub remplir201A()
Range("D4:M4").Interior.ColorIndex = 45
If MsgBox("Etes-vous certain de vouloir remplir la ligne en orange ?", vbYesNo, "Demande de confirmation") = vbNo Then
        Range("D4:M4").Interior.ColorIndex = 0
        Else
         Range("D4:M4").Interior.ColorIndex = 0
    nom = InputBox("Veuillez introduire le nom du détenu" & vbCrLf & "(en minuscule car les majuscules sont automatiques)", "Nom du détenu", "Nom du détenu", vbOKCancel)
  Range("D4").Value = UCase(nom)
  If reponse = vbCancel Then Exit Sub
  If Range("D4") = "" Then GoTo fin
  prénom = InputBox("Veuillez introduire le prénom du détenu" & vbCrLf & "(en minuscule car les majuscules sont automatiques)", "Prénom du détenu", vbOKCancel)
  Range("E4").Value = UCase(prénom)
  If reponse = vbCancel Then Exit Sub
  If Range("E4") = "" Then GoTo fin
 Dim value1 As String
value1 = InputBoxCombo("Veuillez introduire la catégorie du détenu, cliquez pour obtenir les différents choix", Array("PC", "CC", "INT", "AA", "AE"), _
                        "Catégorie", , , , , , , vbBlack, RGB(246, 246, 246), "Arial", 12)
Range("F4").Value = value1
If Range("F4") = "" Then GoTo fin
Dim value2 As String
value2 = InputBoxCombo("Veuillez introduire le régime alimentaire du détenu, cliquez pour obtenir les différents choix", Array("ORD", "MUS", "VG", "MUS/DIA", "DIA"), _
                        "Régime alimentaire", , , , , , , vbBlack, RGB(246, 246, 246), "Arial", 12)
Range("G4").Value = value2
If Range("G4") = "" Then GoTo fin
Dim date1 As Date
date1 = InputBoxDate("Introduisez la date de naissance du détenu." & vbCrLf & "Tapez la date dans la zone de texte ou aidez vous du calendrier ci-dessous.", "Date de naissance du détenu", Now(), , , , , , , _
                     "Arial", 12, "Arial", 12, True, "Arial", 12)
Range("I4").Value = date1
If Range("I4") = "" Then GoTo fin
Dim date2 As Date
date2 = InputBoxDate("Veuillez introduire la date de début d'incarcération du détenu" & vbCrLf & "Tapez la date dans la zone de texte ou aidez vous du calendrier ci-dessous.", "Date d'incarcération du détenu", Now(), , , , , , , _
                     "Arial", 12, "Arial", 12, True, "Arial", 12)
Range("J4").Value = date2
If Range("J4") = "" Then GoTo fin
  motif = InputBox("Veuillez introduire le motif d'incarcération du détenu", "Date de début d'incarcération du détenu")
  Range("K4").Value = motif
fin:
End If
End Sub

[mercatog]

Bonsoir
Oriente toi plutôt vers l'utilisation d'un userform comme interface de saisie.
Regarde le tuto pour cela et la FAQ.

Tu auras plus de flexibilité qu'une suite d'inputbox.

[oliwood1311]

oui mais même avec un userform je devrai en créer 80 alors le problème reste le même non ?

[Philippe Tulliez]

Bonjour,
Pourquoi 80 ?
Qu'il y ai 1 ou 200 enregistrements dans une liste de données contenu dans une feuille, on rempli les informations à l'aide d'un formulaire (USERFORM) et ensuite on va écrire ces informations à la première ligne vide dans la liste. Exactement comme on le ferait manuellement.

[oliwood1311]

à mon avis je m'exprime mal...
en fait j'ai 80 plages soit une plage A4 à Q4, une plage a5 à Q5 et ainsi de suite
la macro que j'ai remplit a4 à Q4, je copie la macro pour remplir a5 à Q5 cela me fait 80 macro... au final ca me fait 80 macros je voudrais savoir si je savais en créer une seule qui puisse gérer les 80 plages ...

[Invité]

bonjour,
pourquoi ne pas passer la plage à ta sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub remplir201A(Plage as range)

comme ça tu utilise la même sub mais à 80 reprise.