Aide à simplifier

Version imprimable

Aide à simplifier

bonjour à tous ou bonsoir c'est selon :D
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:

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

03/09/2013, 23h47
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.
04/09/2013, 08h06
oliwood1311

oui mais même avec un userform je devrai en créer 80 alors le problème reste le même non ?
04/09/2013, 08h10
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.
04/09/2013, 10h10
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 ...
04/09/2013, 10h27
Invité

bonjour,
pourquoi ne pas passer la plage à ta sub

Code:

Sub remplir201A(Plage as range)

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

aide à simplifier

bonjour,

est-ce cela que tu recherches ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub remplir201A()
Range("D4:M4").Interior.ColorIndex = 45
reponse = vbYes
Do While reponse = vbYes
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", "", vbOKCancel)
    Range("D4").Value = UCase(nom)     ' voir "nomproper" qui met uniquement la première lettre en majuscule
    If reponse = vbCancel Then Exit Sub
    If Range("D4") = "" Then GoTo fin
 
' ............................
' ............................
fin:
End If
  reponse = MsgBox("Autre enrgistrment ? ", vbYesNo)
Loop
End Sub

effectivement, avec un userform le remplissage serait plus simple.

cordialement.

06/09/2013, 11h49
oliwood1311

Merci de vos réponse mais un userform qui pose plusieurs questions est ce possible ? et le problème est que j'ai 40 lignes correspondant à chaque fois un détenu dans ce cas si et que pour remplir ces lignes j'ai créer 40 boutons soit un pour chaque ligne. Sachant que je ne remplis jamais ces 40 lignes en même temps .
Chaque ligne gère une personne qui peut partir ou arriver à n'importe quel moment donc elles sont indépendantes.
07/09/2013, 12h35
Philippe Tulliez

Bonjour,
Pourquoi ne pas faire l'encodage directement sur la feuille excel en plaçant des règles avec la validation de données ?
Il me semble que ce serait bien plus simple.
10/09/2013, 17h22
oliwood1311

en théorie plus simple oui mais vu l'utilisation "débile" de certains appelés à utiliser le classeur je préfère passer par ces macros :roll:
10/09/2013, 18h10
parmi

Alors crée un Userform avec tous les champs dont tu as besoin.
Tu ajoutes un bouton OK (ou Valider ou autre nom), et un bouton Annuler au cas où...

Donc, sur click du bouton Valider ou OK, tu mets à jour les données de la ligne en question. Ça évite à l'utilisateur de recevoir un tas d'inputbox... Bien sûr, il te faudra valider les données avant de les inscrire.
10/09/2013, 21h43
oliwood1311

j'y avais pensé mais alors je dois créer 40 userform...

Bonjour,

Sans aller plus loin (je ne suis pas sur de comprendre la demande), peut-être que ce code te suffirait
PS : je n'ai rien mis pour H car cette colonne n'apparait pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub remplir201A()
Dim plg As Range, date1 As Date, date2 As Date
Dim value1 As String, motif, nom, prenom 'si ce n'est pas déclaré avant
Dim value2 As String
Set plg = Application.InputBox("Selectionnez la plage", Type:=8)
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)
plg(1, 1).Value = UCase(nom)
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)
plg(1, 2).Value = UCase(prénom)
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)
plg(1, 3).Value = value1
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)
plg(1, 4).Value = value2
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)
plg(1, 6).Value = date1
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)
plg(1, 7).Value = date2
motif = InputBox("Veuillez introduire le motif d'incarcération du détenu", "Date de début d'incarcération du détenu")
plg(1, 4).Value = motif
End Sub

11/09/2013, 10h31
Philippe Tulliez

Bonjour,
Je reste persuadé que l'utilisation des InputBox est à proscrire et si je me réfère à l'appréciation fort peu flatteuse de ses proches collègues par l'initiateur de ce fil,

Citation:

en théorie plus simple oui mais vu l'utilisation "débile" de certains appelés à utiliser le classeur je préfère passer par ces macros

j'imagine un utilisateur appuyer simplement sur la touche Echap (pour l'inputbox de la ligne

Code:

Set plg = Application.InputBox("Selectionnez la plage", Type:=8)

et déclencher ainsi une erreur 424.

Il me semble franchement plus simple pour un utilisateur lambda d'encoder dans une feuille Excel correctement protégée et contrôlée à l'aide des outils d'excel (Validation de données, mise en forme conditionnelle et autres outils que de sélectionner une plage adéquate et de répondre à une suite d'InputBox.
11/09/2013, 10h45
casefayere

Bonjour Philippe,
Tu as, sans doute, raison, je ne me mets pas assez à la place des non-initiés (pour employer un terme moins vilain à leur égard), je pensais simplement qu'on évitait tous les "If" et "Goto Fin". oliwood1311 en fera ce qu'il voudra.

Bonne journée
11/09/2013, 10h51
Philippe Tulliez

Bonjour Dominique,
Je voulais seulement mettre en avant que soit on passe directement à un encodage dans un UserForm soit l'encodage se fait dans un classeur bien préparé mais cela demande de la part de celui qui construit le classeur et non pas les utilisateurs une très bonne connaissance d'excel et une bonne analyse.
Je deviendrais fou si l'on m'imposait l'encodage d'un formulaire par une suite d'InputBox et ce avec tous les risques inhérents à une erreur d'encodage en plein milieu de la procédure qui m'obligerait à tout recommencer.
11/09/2013, 11h07
casefayere

Je suis d'accord, Philippe, en résumé il faut revenir à la proposition de mercatog car, quand tu écris

Citation:

... l'encodage se fait dans un classeur bien préparé mais cela demande de la part de celui qui construit le classeur et non pas les utilisateurs une très bonne connaissance d'excel et une bonne analyse.

Je ne pense pas que ce soit le cas pour "celui qui construit" :roll:

A +
11/09/2013, 20h46
oliwood1311

vos propositions sont intéressantes je check un coup d'oeil mais créer un userform avec toutes ces données et questions pour remplir mes lignes me semble hardu et peut-être au dessus de (maigres)mes comptétences lol :roll:
11/09/2013, 21h49
parmi

L'important est de savoir où tu vas inscrire les données du UserForm.
Autrement, c'est relativement simple de mettre des contrôles sur ledit Userform...

Tu peux soit boucler les lignes une à une et mettre à jour chacune d'elles ou encore afficher ton Userform sur double-click d'une cellule ou click droit sur une cellule ou autre méthode... Tout dépend de l'utilisation que tu veux en faire.
11/09/2013, 22h16
casefayere

Voilà un exemple simple en fichier joint à adapter, aménager, compléter

Bonne nuit