Copier/coller des cellules selons un mot clé
Bonjour, je suis en stage et je travaille sur un outil que je dois développer sous VBA.
J'ai vraiment besoin de votre aide. Voici mon problème.
A partir d'une feuil1, ou se trouve un planning, je veux extraire que les cellules qui contient un mot clé que j'introduis à partir d'un inputBox (sachant que la cellule peut contenir différents mots.) Ensuite la macro nous permet de coller ces cellules, et celles qui sont en dessus dans la feuil2 tout en gardant les mêmes coordonnées.
Exemple.
J'introduis le "GO" la macro va chercher sur toutes la feuil1 les cellules qui contiennent ce mot, et les copie sur la feuil2. Si on trouve "GO" dans les cellules (7,8) et (10,20) sur la feuil1, on copie les cellules (7,8) ; (6,8) et (10,20) ; (9,20) sur la feuil2 tout en gardant les mêmes coordonnées c'est à dire (7,8) ; (6,8) et (10,20) ; (9,20) de la feuil 2.
J'espère que j'ai été claire sur mon explication.
merci d'avance pour votre aide.
Bonjour
Triki a écrit :Voici mon problème
Cela aurait mieux "Voici mon fichier"
Voici ce que j'ai fait et voici ce que je veux
Donc
Désolé mais je peux pas diffuser le fichier, c'est un fichier confidentiel de l'entreprise ou je suis en stage.
Voici mon code que j'ai pu avoir avec de l'aide
Sub CopierGO()
Dim WsS As Worksheet, WsC As Worksheet
Dim C As Range
Dim Mot As String, firstAddress As String
Set WsS = Worksheets("Feuil1")
Set WsC = Worksheets("Feuil2")
Mot = InputBox("Veuillez saisir le mot à rechercher", "RECHERCHE MOT")
Set C = WsS.Cells.Find(Mot, , xlValues, xlPart)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Copy WsC.Range(C.Address)
Set C = WsS.Cells.FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
Else
MsgBox "Le mot " & Mot & " n'a pas été trouvé dans la feuille " & WsS.Name
End If
Set C = Nothing: Set WsC = Nothing: Set WsS = Nothing
End Sub
Mais il me reste un autre provlème, je veux copier un meme format des cellules(car j'ai des cellules fusionnées), et celles d'en dessus.
Mais ce code ne satisfait pas ces conditions
Bonjour
On ne le répète pas assez sans doute
Les données confidentielles on s'en fout balance
Il faut un fichier qui à la même structure que le fichier réel, avec des données qui permettent de faire fonctionner la macro
Mais bon c'est toi qui voit
Pour le moment je ne cherche pas