Besoin d'aide avec la fonction Find + collé VBA

Résolu/Fermé
grutz Messages postés 22 Date d'inscription mercredi 3 février 2016 Statut Membre Dernière intervention 20 septembre 2023 - 8 févr. 2017 à 10:01
grutz Messages postés 22 Date d'inscription mercredi 3 février 2016 Statut Membre Dernière intervention 20 septembre 2023 - 8 févr. 2017 à 12:57
Bonjour, j'ai besoin de votre aide pour une manipulation VBA.

je voudrais trouver dans le classeur en colonne A, la valeur 1654B . si c'est vrai, alors je voudrais coller un texte "B8" sur la même ligne que la valeur trouvé en colonne F.

est ce possible ?

merci, cordialement
A voir également:

3 réponses

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
8 févr. 2017 à 10:36
Bonjour Grutz, bonjour le forum,

Essaie comme ça :
Dim O As Worksheet
Dim R As Range

Set O = Worksheets("Feuil1") 'à adapter
Set R = O.Columns(1).Find("1654B", , xlValues, xlWhole)
If Not R Is Nothing Then R.Offset(0, 1).Value = "B8"


0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
8 févr. 2017 à 10:47
Salut ThauTheme,

Offset(0, 5)

non?
0
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
8 févr. 2017 à 10:56
Bonjour Pijaku,

Bien sûr ! Je l'ai fait exprès tu penses bien... C'était juste pour voir si tu suivais...

(Merci, c'est bon de savoir qu'il y a des yeux attentifs prêts a reprendre nos erreurs).
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
8 févr. 2017 à 10:59
En même temps, je n'aurais pas du le signaler.
Cela permet à l'utilisateur de bien assimiler le comment du pourquoi de comment fonctionne le Offset.
Mais bon... ça reste élémentaire.
0
grutz Messages postés 22 Date d'inscription mercredi 3 février 2016 Statut Membre Dernière intervention 20 septembre 2023
Modifié par grutz le 8/02/2017 à 12:57
Merci beaucoup, ça fonctionne très bien.
j'ai pu l'adapter à ma situation.
;)
0