XL 2010 rechercher du texte dans une cellule et copier la case défini dans une autre feuille

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

djodjo33

XLDnaute Nouveau
Bonjour à tous,

Etant débutant en VBA, je me permet de venir vous demander conseil.
Après de multiples recherches sur différents forums je n'ai pas réussi à faire ce que je veux.

Ce que je cherche à faire : chercher les cellules qui contiennent "carton" dans la colonne "I" de ma feuille "KANBAN Finition" et copier les cellules qui se trouvent dans la colonne "C"; "D" et "I" de la même ligne dans ma feuil1. En sachant que les premières lignes dans la Feuille "KANBAN Finition" commencent ligne 7. Et que je souhaite commencer à copier à partir de la ligne 6 de "Feuil1".

Le code que j'ai fais est le suivant :

VB:
Private Sub Worksheet_activate()

Dim derlignfinition As Integer

derlignfinition = Worksheets("KANBAN FINITION").Range("B" & Rows.Count).End(xlUp).Row

Ligne = 6
For i = 7 To derlignfinition
If UCase(Sheets("KANBAN FINITION").Range("I" & i).Value) Like "*carton*" Then
Cells(Ligne, 1) = Sheets("KANBAN FINITION").Cells(i, 3)
Cells(Ligne, 2) = Sheets("KANBAN FINITION").Cells(i, 4)
Cells(Ligne, 3) = Sheets("KANBAN FINITION").Cells(i, 9)
Ligne = Ligne + 1
End If
Next

End Sub

Merci d'avance pour votre aide

Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
4
Affichages
177
Retour