Discussion :

[TheDrLucky]

Bonjour a tous, je suis tous nouveau sur le site et cherchai un Forum qui pourra me conseil et ici j'ai déjà eu plusieurs réponse que je me suis posé.

La sur la feuille 1 ces ma BDD et sur les autres feuilles je souhaiterai copié automatiquement les ligne de couleur,(exemple: toutes les ligne Bleu sur la Feuille 2, toutes les lignes rouge sur la Feuille 3...)




Et si au passage pour avez des chose sympa pour mieux visualisé le fichier excel, comme quand on sélectionne une cellule cela met en gris la ligne entière. ou autre chose pour mieux gérée une base de donné client;


Merci beaucoup pour toute vos réponses, cela me serra une aide très très précieuse (car ce fichier serra mon support pour mon examen de BTS)

Cordialement Florian GODELOUP

[BDA53]

Salut,

Tu peux utiliser le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Sub couleur()
        Dim i, j As Integer
        For i = 2 To Worksheets(1).End(xlUp).Row
            For j = 2 To 20
 
                If Worksheets(1).Cells(i, j).Interior.ColorIndex = 5 Then Worksheets(2).Cells(i, j) = Worksheets(1).Cells(i, j)
                If Worksheets(1).Cells(i, j).Interior.ColorIndex = 3 Then Worksheets(3).Cells(i, j) = Worksheets(1).Cells(i, j)
            Next j
        Next i
    End Sub

pour plus d'info sur les indices des couleurs de VBA : http://gerard.g.pagesperso-orange.fr...lette_couleurs

[TheDrLucky]

Parfait merci beaucoup pour ta réponse apporté ! je suis vraiment extrêmement novice dedans et je te remercie

[BDA53]

si le problème est résolu n'oublie pas de clique sur résolu

[TheDrLucky]

euh euh euh, désole mais j'ai une petite erreur :

Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet.

sur cette ligne-ci

Code :

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

For i = 2 To Worksheets(1).End(xlUp).Row

Après si cela est plus simple je peux aussi rajoute avec une dernière colonne sur la feuille 1 avec un code comme : "mail", "à rappelé", "résolu", qui permettra de copier les lignes dans la feuille Mail, à rappelé...

[BDA53]

mmmh ... Essaye avec

Code :

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

 Worksheets(1).Cells("A32").End(xlDown).Row

[TheDrLucky]

cela fais du changement

Erreur d’exécution '5'

argument ou appel de procédure incorrect.

(5ans sans touché a des macro/VBA) j'ai l'impression d'apprendre a marché

[BDA53]

Ce que tu vas faire pour que ça marche :

1) va dans le ruban développeur et active le mode création
2) insère un bouton de commande
3) clique droit sur le bouton de commande et choisi l'option "visualiser le code"
4) copié collé du code en prenant soin de bien enlever le sub couleur() et le end sub
5) clique sur le bouton de commande
6) enjoy it !

[TheDrLucky]

Sniff Snifff

Erreur '5' je doit vraiment m'y prendre comme un pieds ce n'est pas possible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
 
        Dim i, j As Integer
        For i = 2 To Worksheets(1).Cells("A32").End(xlDown).Row
            For j = 2 To 20
 
                If Worksheets(1).Cells(i, j).Interior.ColorIndex = 5 Then Worksheets(2).Cells(i, j) = Worksheets(1).Cells(i, j)
                If Worksheets(1).Cells(i, j).Interior.ColorIndex = 3 Then Worksheets(3).Cells(i, j) = Worksheets(1).Cells(i, j)
            Next j
        Next i
 
End Sub

[BDA53]

Aaaaah oui c'est de ma faute c'est pas worksheets(1).cells("A32") mais worksheets(1).cells(32,1). "A32" c'est pour les range

Donc normalement avec cells ton code fonctionne

[TheDrLucky]

Genial cela fonctionne Merci enormement !!!!!!

Après c'est vrai que le MUST du MUST aurai été que dans les autre feuille si je fais une modif de couleur cela change la Base de donnée et la rechange de feuille automatique mais cela va beaucoup m'aidé