Re : Rechercher la valeur d'une cellule dans une plage, me déplacer et y coller une p
Bonjour et désolé du retard, j'ai eu pas mal de boulot sur ce projet.
merci JBOBO, t'as solution fonctionne mais je souhaitais créer une boucle avec plus de 70 opérations sur un meme fichier. Ta solution ne me permets de le faire qu'une seule fois.
J'ai bien fait d'avoir fourni ces données aussez complexes parce que les génies d'entre vous me diront que la recherche d'une heure, contenu dans une cellule, dans une plage n'est pas possible.
Mais comme tous bons gentlemen, je vais vous expliquer comment j'ai procédé :
Si la recherche d'une heure, contenu dans une cellule, dans une plage n'a pas été possible, j'ai créé un seconde colonne en B:B qui reprend les valeurs en heures de A:A et les met en valeur générale (format / générale). Pour etre compatible, j'ai converti le contenu de mon heure de référence en CD2 en valeur générale en CD3.
De là, ma recherche s'exécute sans problème. Je me suis bien décalé de 600 vers haut et 1 à droite de ma valeur trouvée et je peux ainsi y coller sans problème mes 'tableau' auparavant en CD2:BF1200. Je supprime ensuite la colonne B:B et C:C (qui m'en plus utile pour ma résolution).
Et voilà le tour est joué !
Allez Et parce que je suis un gentil internaute, je vous donne les lignes de code si ca peut en aider certains :
Worksheets("DATA").Range("CD2:FC1200").Copy ' Copie des valeur de mon tableau
Nom = Range("CD3") ' l'analyse commence ICI
With Sheets("DATA")
Set c = Range("B602:B87002").Find(Nom, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
Else
MsgBox "nom introuvable" ' <- en cas ou c'est toujours bon de savoir si ca déconne
End If
End With
ActiveCell.Offset(-600, 1).Select ' décalage de 600 en haut et 1 cellule à droite puis collage de mon tableau
ActiveSheet.Paste
Application.CutCopyMode = False