Bonjour.
Je fait appel à vos lumière pour un problème qui ne doit pas être très compliqué mais je ne trouve pas la solution.
J'ai mis au point une macro me premetant lors de son execution de lancer une recherche dans une feuille de données pour qu'elle me rapatrie les lignes dons la valeurs dans la cellule A est égale à "Tulipe" ou une variante de Pirelli.
Jusque la tout va bien ca fonctionne.
1- Le probléme est qu la macro n'est utilisable que dans la feuille qui est appelée dans ma macro la feuille "Test MAcro" Or, j'aimerai pouvoir l'utiliser dans différentes feuille du classeur.
2- La macro place les lignes rapatrier dans la feuille de données à partir de la dernière ligne vide. Or, J'aimerais qu'il place les lignes en dessous de la ligne sélectionner lors du lancement de la macro.
Je ne sais pas si j'ai été trés claire dans mes explications, hésiter pas à me demander plus d'informations.
Voici le code concerné:
Je fait appel à vos lumière pour un problème qui ne doit pas être très compliqué mais je ne trouve pas la solution.
J'ai mis au point une macro me premetant lors de son execution de lancer une recherche dans une feuille de données pour qu'elle me rapatrie les lignes dons la valeurs dans la cellule A est égale à "Tulipe" ou une variante de Pirelli.
Jusque la tout va bien ca fonctionne.
1- Le probléme est qu la macro n'est utilisable que dans la feuille qui est appelée dans ma macro la feuille "Test MAcro" Or, j'aimerai pouvoir l'utiliser dans différentes feuille du classeur.
2- La macro place les lignes rapatrier dans la feuille de données à partir de la dernière ligne vide. Or, J'aimerais qu'il place les lignes en dessous de la ligne sélectionner lors du lancement de la macro.
Je ne sais pas si j'ai été trés claire dans mes explications, hésiter pas à me demander plus d'informations.
Voici le code concerné:
Code:
'Insertion Pirelli
If CheckBox8.Value = True Then
For i = 1 To Sheets("Données").Range("A65356").End(xlUp).Row
If Left(Sheets("Données").Range("A" & i).Value, Len ("Tulipe")) = "Tulipe" 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