Discussion :

[HoLbOrN]

Bonjour ou Bonsoir.

Je débute en programmation de macro sous excel.

Pour mon travail j'ai essayer de créer une macro avec un userform constitué de plusieurs CheckBox.
Le but de cette macro est assez simple :

La macro sert à la création d'un véhicule composé de différents éléments sélectionnable à partir de checkbox.

Si une checkbox est cochée, la macro doit aller copier certaines ligne dans une feuille de donnée pour les coller dans la feuille active.

Il existe plusieurs checkbox réalisant la même action et selon les choix que l'on a fait la macro constitue le véhicule.

Je suis malheureusement confronter à deux problématiques:

1 - Ma macro n'est utilisable que dans une seul feuille ( Je ne sais pas faire appel à une feuille sans la sélectionner.


2 - Ma macro sélectionne des liges que j'ai déterminer exemple (43:54). J'aimerais à la place que la macro lance une recherche pour sélectionner et copier les lignes contenant dans la première cellule une certaine valeur exemple : "FIA*". Une fois sélectionner qu'elle soit classer par ordre croissant est coller dans à partir de la cellule active dans la feuille active.

Les explications ne sont pas très évidentes et je n'ai peu être pas sue m'exprimer. Rien de tel qu'un fichier d'exemple qui sera plus parlant.


Merci de toutes l'aide que vous pouriez m'apporter.

Cordialement.

[Bear the french]

Bonjour ou Bonsoir,

Si tu peux nous mettre en ligne le début de ton code, ça serait plus simple (entre deux balises CODE).

Bertrand

[HoLbOrN]

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Private Sub CommandButton1_Click()
 
'Insertion Pirelli
    If CheckBox8.Value = True Then
    Sheets("Données").Select
    Rows("63:73").Select
    Selection.Copy
    Sheets("Test MAcro").Select
    Selection.Insert Shift:=xlDown
 
 
 End If
 
'Insertion continental
    If CheckBox7.Value = True Then
    Sheets("Données").Select
    Rows("54:62").Select
    Selection.Copy
    Sheets("Test MAcro").Select
    Selection.Insert Shift:=xlDown
 
 End If
 
'Insertion Michelin
    If CheckBox6.Value = True Then
    Sheets("Données").Select
    Rows("44:53").Select
    Selection.Copy
    Sheets("Test MAcro").Select
    Selection.Insert Shift:=xlDown
 
 End If
 
'Insertion VOLVO
    If CheckBox5.Value = True Then
    Sheets("Données").Select
    Rows("36:43").Select
    Selection.Copy
    Sheets("Test MAcro").Select
    Selection.Insert Shift:=xlDown
 
End If
 
'Insertion FIAT
    If CheckBox4.Value = True Then
    Sheets("Données").Select
    Rows("21:27").Select
    Selection.Copy
    Sheets("Test MAcro").Select
    Selection.Insert Shift:=xlDown
 
End If
 
'Insertion BMW
    If CheckBox3.Value = True Then
    Sheets("Données").Select
    Rows("28:35").Select
    Selection.Copy
    Sheets("Test MAcro").Select
    Selection.Insert Shift:=xlDown
 
End If
 
 
'Insertion Puissance 6Cv
    If CheckBox2.Value = True Then
    Sheets("Données").Select
    Rows("14:20").Select
    Selection.Copy
    Sheets("Test MAcro").Select
    Selection.Insert Shift:=xlDown
 
End If
 
'Insertion Puissance 5Cv
    If CheckBox1.Value = True Then
    Sheets("Données").Select
    Rows("5:13").Select
    Selection.Copy
    Sheets("Test MAcro").Select
    Selection.Insert Shift:=xlDown
 
End If
 
Unload Me
 
End Sub

[HoLbOrN]

j'ai résolue certains problème de ma macro.

1- Pour ne plus sélectionner la feuille des données pour la copie.

2- Pour pouvoir utiliser ma macro dans tout le classeur, j'ai supprimer la sélection de la feuille de destination.

Ancien code :

Code :

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

1
2
3
4
5
6
7
8
'Insertion Pirelli
If CheckBox8.Value = True Then
    Sheets("Données").Select
    Rows("63:73").Select
    Selection.Copy
    Sheets("Test MAcro").Select
    Selection.Insert Shift:=xlDown
End If

Après modifications :

Code :

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

1
2
3
4
5
'Insertion Pirelli
If CheckBox8.Value = True Then
    Sheets("Données").Rows("63:73").Copy
    Selection.Insert Shift:=xlDown
End If

Mais mon deuxième problème reste entier, j'aimerai que la macro cherche, sélectionne et copie les lignes contenant dans la cellule A une certaine valeur (Exemple: "Fiat*" pour ensuite les trier en ordre croissant et les collées dans la feuille active.

Actuellement, la macro sélectionne les lignes que je lui demande, mais si des lignes supplémentaires de données sont ajouter dans la feuille de donnée, il faut que je modifie les lignes de sélection dans la macro, et surtout il faut que les lignes soit dans l'ordre dans la feuille de données. D’où la volonté de rendre les choses automatique.

Voila.

Merci d'avance de votre aide.

Merci.

[Bear the french]

Bonjour,

A tester :

Code :

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

1
2
3
4
5
6
7
8
'Insertion Pirelli
If CheckBox8.Value = True Then
    For i = 1 To Sheets("Données").Range("A65356").End(xlUp).Row
        If Sheets("Données").Range("A" & i).Value = "Pirelli" Then
            Sheets("Test MAcro").Range(Sheets("Test MAcro").Range("A65356").End(xlUp).Row + 1 & ":" & Sheets("Test MAcro").Range("A65356").End(xlUp).Row + 1).Value = Sheets("Données").Rows(i).Value
        End If
    Next i
End If

Bertrand

[HoLbOrN]

Je te remercie de ton aide.

J'ai tester ton code, il fonctionne parfaitement.

Le seul soucie, est que la macro ne sélectionne que les ligne ou la cellule A contient le mot "Pirelli", or j'aimerai qu'il sélectionne les ligne ou la cellule A contient la valeur "Pirelli *"

Exemple :

Pirelli 12
Pirelli 14
Pirelli 16

En somme je voudrait qu'il sélectionne les ligne ou la cellule A contient une valeur qui peut être entourer de variable.

Je te remercie.

Si je me suis mal expliquer hésite pas à me poser des questions !!