XL 2016 Copier une cellule de la ligne selon un critère

Skaph · 24 Avril 2020

Bonjour à tous,

Je me permet de poster un message sur le forum suite à de nombreuses recherches, (j'ai trouvé des choses mais je n'arrive pas à les adapter à mon classeur), je ne suis pas très forte en VBA, mais je souhaite faire un petit outil qui peut me permettre de gagner du temps.
Je m'explique :
Mon classeur contient les compétences maîtrisée ou non des techniciens sur plusieurs produits.
Chaque produit a donc sa feuille avec les différentes compétences, donc il contient en gros 3 colonnes (une avec la compétences, une je ne maîtrise pas, et une je maîtrise). Lorsqu'une compétences est maîtrisée ou non, il y a un "X" dans la colonne correspondante.
L'idée est d'extraire la valeur de la cellule ou se situe la compétences qui contiennent X dans je ne maîtrise pas (exemple : si la compétence "réaliser un test" n'est pas maîtrisée, juste extraire "réaliser un test" sur un autre page.

Je joins un fichier exemple pour vous éclairer car je pense ne pas être claire dans mes explications.

Je vous souhaite une bonne journée et je vous remercie déjà d'avance.

JHA · 24 Avril 2020

Bonjour à tous,

Un essai par formules

VB:

=SIERREUR(DECALER(INDIRECT($A10&"!A1");PETITE.VALEUR(SI(INDIRECT($A10&"!C1:C100")="X";LIGNE(INDIRECT($A10&"!C1:C100"))-1);COLONNE(A:A)););"")

JHA

Skaph · 24 Avril 2020

Merci de m'avoir apporter une solution, as-tu une solution en VBA plutôt ?
J'ai trouvé un code qui est le suivant et que j'ai su adapter :
Sub FiltreDeg()

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("Start").Activate ' feuille de destination

Col = "F" ' colonne de la donnée non vide à tester
NumLig = 76
With Sheets("Degroupage") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 2 To NbrLig
If .Cells(Lig, Col).Value = "X" Then
.Range("D" & Lig & ":E" & Lig).Copy
NumLig = NumLig + 1
Cells(NumLig, 2).Select
ActiveSheet.Paste
End If
Next
End With

End Sub

Cependant, j'arrive à extraire seulement les lignes d'une page, même si je change la feuille source.

Skaph · 28 Avril 2020

JHA à dit:
Bonjour à tous,

Un essai par formules

VB:

=SIERREUR(DECALER(INDIRECT($A10&"!A1");PETITE.VALEUR(SI(INDIRECT($A10&"!C1:C100")="X";LIGNE(INDIRECT($A10&"!C1:C100"))-1);COLONNE(A:A)););"")

JHA

Bonjour,
J'ai essayé d'appliquer ça à mon fichier, ça fonctionne pour le premier, la valeur est bien reportée, mais quand j'étire les cases, rien ne se passe, il n'y a aucune autre valeur copier.

Pouvez-vous me dire quelle est l'erreur ?

Merci d'avance

JHA · 28 Avril 2020

Bonjour à tous,

C'est une formule matricielle à valider par Ctrl+Maj+Entree, après validation, tu dois avoir des accolades de chaque côté de la formule.
ensuite copier vers la droite

JHA

Skaph · 28 Avril 2020

JHA à dit:
Bonjour à tous,

C'est une formule matricielle à valider par Ctrl+Maj+Entree, après validation, tu dois avoir des accolades de chaque côté de la formule.
ensuite copier vers la droite

JHA

Pour la validation de la formule, j'ai bien les {} qui apparaissent, cependant maintenant quand je tire vers la droite, c'est des 0 qui s'affichent..

JHA · 28 Avril 2020

Bonjour à tous,

C'est normal si tu n'as pas d'autres données. Pour ne pas "voir" les "0", tu vas dans Accueil/nombre/Personnalisée et tu mets "Standard;;" (sans les guillemets bien sur)

JHA

Skaph · 28 Avril 2020

JHA à dit:
Bonjour à tous,

C'est normal si tu n'as pas d'autres données. Pour ne pas "voir" les "0", tu vas dans Accueil/nombre/Personnalisée et tu mets "Standard;;" (sans les guillemets bien sur)

JHA

Merci beaucoup, j’ai réussi !
Bonne soirée

XL 2016 Copier une cellule de la ligne selon un critère

Skaph

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Skaph

XLDnaute Nouveau

Skaph

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Skaph

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Skaph

XLDnaute Nouveau

Discussions similaires