Recherche occurence dans la derniere ligne et copier l'entete de colonne

Bonjour a tous,

mon Vba est completement rouillé, je bloque dessus depuis 1 semaine et je m'avoue vaincu,

Voilà tout est dans le titre ou presque, je cherche les occurences qui correspondent à "<70%" dans la derniere ligne de mon tableau pour recopier dans l'onglet "3" les entete de colonne (qui sont ligne 3 :( )

Je sens que vais avoir honte

Merci d'avance

Bonjour,

Ma boule de cristal aussi est un peu rouillé ces temps ci...

mdr3

A+

Bonjour à tous !

Une suggestion comme ça avec un si & index tu devrais y arriver ou en ajoutant un petit fichier pour pouvoir t'aider

Bonne journée !

Bonjour,

Ma boule de cristal aussi est un peu rouillé ces temps ci...

mdr3

A+

Bonjour Galopin,

j'étais certain que tu allais m'alligner :)

sh6

Un petit exemple de la présentation du résultat à obtenir aurait pas été plus mal, parce que là on suppute un peu...

A+

A défaut de présentation voici une solution :

Sub test()
Dim rng As Range, i%, iC%, S$
With Feuil3
i = .Range("D3").End(xlDown).Row - 2
Set rng = .Range("A3").CurrentRegion
With rng
   Arr = rng.Offset(, 1).Resize(.Rows.Count, .Columns.Count - 2).Value
End With
S = Arr(i, 2) & ","
For iC = 3 To UBound(Arr, 2)
   If Arr(i, iC) = "<70%" Then S = S & Arr(1, iC) & ","
Next
S = Left(S, Len(S) - 1)
End With
Worksheets("Remplissage").Range("A1") = S
End Sub

Alors voilà, avec l'exemple du résultat onglet "remplissage"

Merci,

Bon pour la décoration tu te débrouilleras hein :

Sub test()
Dim rng As Range, i%, iC%, S$
With Feuil3
i = .Range("D3").End(xlDown).Row - 2
Set rng = .Range("A3").CurrentRegion
With rng
   Arr = rng.Offset(, 1).Resize(.Rows.Count, .Columns.Count - 2).Value
End With
For iC = 3 To UBound(Arr, 2)
   If Arr(i, iC) = "<70%" Then S = S & Arr(1, iC) & ","
Next
S = Left(S, Len(S) - 1)
End With
For i = 0 To UBound(Split(S, ","))
Worksheets("Remplissage").Cells(3, i + 1) = Split(S, ",")(i)
Next
End Sub

A+

Merci,

Je test ça

J'adore la Déco

Merci Galopin c'est parfait reste que le choix des couleurs,

Merci encore

Rechercher des sujets similaires à "recherche occurence derniere ligne copier entete colonne"