En VBA, Recherche Valeur dans tableau [Résolu/Fermé]

Signaler
-
 varin -
Bonjour,

J'ai un fichier avec deux onglets (1 et 2).

Je recherche la valeur de la cellule A1 de l'onglet 1 dans la ligne 1 du tableau de l'onglet 2,
où je dois me positionner.

A savoir que :
La valeur de la cellule A1 de l'onglet 1 change régulièrement.
La valeur de la cellule A1 de l'onglet 1 existe automatiquement dans la ligne 1 du tableau de l'onglet 2.

Comment puis je traduire cela en code vba ?

Je vous remercie d'avance de votre aide.

7 réponses

Messages postés
15627
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mars 2021
1 462
Re,

a mettre dans VBA onglet 1:

adaptez nom feuille et plage tableau

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Worksheets("feuil2").Range("C3:K3")
Set c = .Find(Target, LookIn:=xlValues)
If Not c Is Nothing Then
With Worksheets("feuil2")
.Activate
.Range(c.Address).Select
End With
End If
End With
End If
End Sub

code alt+enter:chr(10)
a voir
https://forums.commentcamarche.net/forum/affich-1564228-excel-2000-saut-de-ligne
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
15627
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mars 2021
1 462
Bonjour,

la valeur de A1 onglet 1 change manuellement ou en automatique ????
Bonjour,

Cette valeur change manuellement, elle est saisie par différents utilisateurs.

Sinon si je peux me permettre, aprés avoir été renseigné sur le code ASCII sous vba des doubles cotes quel est le code d'un retour à la ligne dans une cellule (ALT+Entrée) ?

Merci d'avance
Merci pour le code vba et le code ASCII.

Etant débutant, j'ai copier la macro en modifiant le nom de la feuille et l'aire.
Par contre je ne maitrise pas encore le principe de "Private Sub ..."
Lorsque je recherche cette macro dans la liste pour la lancer, je ne la trouve pas.

Comment puis je faire pour la lancer ?
et est il possible de la placer à l'intérieur de ma macro perso, sans la première ligne "Private Sub Worksheet_Change(ByVal Target As Range)" ?

Merci d'avance
Messages postés
15627
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
6 mars 2021
1 462
Bonjour,

le code est a mettre comme je vous ai ecrit f894009 28 mars 2014 à 18:33 . Ce code s'executera chaque fois que vous changerez la valeur dans votre cellule

Vous ne pouvez pas trouvez cette "macro" dans la liste parce qu'elle ne fait pas partie de la liste des macros qui, en general, sont situees dans un ou plusieurs Modules.
Le code a bien été mis dans VBA onglet 1.

Je cherche maintenant lorsque je suis cellule A1 de la feuille 1, à me déplacer dans l'aire C3:K3 de la feuille 2 sur la cellule ayant la même valeur que dans la cellule A1 feuille 1.
Tout fonctionne maintenant correctement.

Merci