Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Affecter une valeur à une RECHERCHEV en VBA

  • Initiateur de la discussion Initiateur de la discussion BoZZo
  • Date de début Date de début

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 !

B

BoZZo

Guest
Bonjour,
Je souhaiterai écrire un code vba permettant d'affecter la valeur d'une cellule connue à une cellule désignée par RECHERCHEV.
Pour le moment, mon code est :

Sub Test ()
[RECHERCHEV(A1, "matrice", "numéro colonne")]=[cellule]
End sub

Le message d'erreur renvoyé est "objet requis"....
Pourriez vous m'éclairer svp?
D'avance merci.
 
Re : Affecter une valeur à une RECHERCHEV en VBA

Ok ça marche bien sur la page 🙂
Mais le souci... c'est qu'il ne recopie pas la valeur sur la même ligne que celle de "TexteRecherché", ce qui est le but.
 
Re : Affecter une valeur à une RECHERCHEV en VBA

Je n'ai pas de cellules fusionnées... Voici mon code

Dim x As Range
Sheets("utilisateurs").Select
Set x = Columns(1).Find(Identification_pseudo, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Offset(0, 10).Value = Sheets("Utilisateur_connecté").Range("Crédit")

Je veux donc que la valeur de la cellule de la ligne contenant identification_pseudo (qui est dans la première colonne de la matrice) et de la 11ème colonne prenne la valeur de la cellule Crédit de la feuille Utilisateur_connecté.
 
Re : Affecter une valeur à une RECHERCHEV en VBA

En mettant les guillemets, plus rien ne s'affiche... Je précise que Identification_pseudo est une cellule contenant du texte, et Crédit un nombre.
 
Re : Affecter une valeur à une RECHERCHEV en VBA

Re,

c'est plus la même chose....

Code:
Dim x As Range
Sheets("utilisateurs").Select
Set x = Columns(1).Find(Range("Identification_pseudo").value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Offset(0, 10).Value = Sheets("Utilisateur_connecté").Range("Crédit")
 
Re : Affecter une valeur à une RECHERCHEV en VBA

bon et ben... 1000 mercis !! ça marche exactement comme demandé !!! merci beaucoup pour le suivi rapide et efficace !!!
Bonne journée !!
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
586
Réponses
2
Affichages
378
Réponses
16
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…