Microsoft 365 Copie d'une valeur dans cellule

Kstanisic · 1 Juin 2022

Bonjour à tous,

Je rencontre un soucis sur un de mes fichier excel VBA.
J'aimerais que mon code me permette d'aller chercher des informations dans deux tableaux différents.
En effet je veux que ma colonne O de mon onglet "matériel" se remplisse avec le code du site de ma colonne B de mon onglet "site" .
Pour ça il doit se référer aux libellés du site de l'équipement qu'on retrouve dans l'onglet "tableau" et à partir de là trouver le code du site dans l'onglet "site".

J'ai pensé à utiliser la fonction find mais je n'ai pas réussi. Si quelqu'un aurait la gentillesse de m'aider il me manque plus que cette partie pour finir mon fichier ...

Merci d'avance de votre aide et bonne journée à vous !

sylvanu · 1 Juin 2022

Bonjour Kstanisic,
Je ne comprends pas pourquoi vous parlez de VBA et livré une PJ en xlsx. Vous voulez une solution en formule ou en VBA ?
En PJ un essai par formule avec en Matériel/O1 :

VB:

=SIERREUR(INDEX(site!B:B;EQUIV(RECHERCHEV(B1;TABLEAU!A:B;2;FAUX);site!C:C;0));"")

Le "Recherche" extrait le site en fonction du N° Equip, le "Equiv" trouve le lieu en fonction du site, et l' "Index" trouve le code par rapport à ce résultat.

sylvanu · 1 Juin 2022

Bonjour Kstanisic,
Je ne comprends pas pourquoi vous parlez de VBA et livré une PJ en xlsx. Vous voulez une solution en formule ou en VBA ?
En PJ un essai par formule avec en Matériel/O1 :

VB:

=SIERREUR(INDEX(site!B:B;EQUIV(RECHERCHEV(B1;TABLEAU!A:B;2;FAUX);site!C:C;0));"")

Le "Recherche" extrait le site en fonction du N° Equip, le "Equiv" trouve le lieu en fonction du site, et l' "Index" trouve le code par rapport à ce résultat.

Kstanisic · 1 Juin 2022

Bonjour,

Effectivement je n'ai pas mis le fichier xlm car celui-ci était beaucoup trop lourd et comporte beaucoup de macro.
Votre solution me convient parfaitement !
Merci pour votre réactivité et du temps accordé

Bonne journée à vous

sylvanu · 1 Juin 2022

Re,
Sinon en VBA vous pouvez faire, ce qui est la même chose :

VB:

Sub Trouve()
    With Sheets("materiel")
        Application.ScreenUpdating = False
        Set Plage = .Range("O1:O" & Range("B65500").End(xlUp).Row)  ' Selection plage utile de "materiel"
        ' Colle formule
        Plage.FormulaR1C1 = _
        "=IFERROR(INDEX(site!C[-13],MATCH(VLOOKUP(RC[-13],TABLEAU!C[-14]:C[-13],2,FALSE),site!C[-12],0)),"""")"
        Plage.Value = Plage.Value   ' Copie colle valeurs
        .[A1].Select
    End With
End Sub

Microsoft 365 Copie d'une valeur dans cellule

Kstanisic

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Kstanisic

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires