Faire une formule VBA

Le 01/11/2020 à 15:11

Bonjour,

Comment peu ton remplacer : =RECHERCHEV(B18;Produits!B:C;2)

Pour le faire en VBA automatique

Le 01/11/2020 à 15:21

Bonjour Philippe29, le forum,

A tester:

 = Application.WorksheetFunction.VLookup(Range("B18"), Sheets("Produits").Range("B:C"), 2, False)

Cordialement,

Le 01/11/2020 à 15:41

Formule a mettre comment en VBA ?

Public Sub TestVLookup()

= Application.WorksheetFunction.VLookup(Range("B18"), Sheets("Produits").Range("B:C"), 2, False)

End Sub

Le 01/11/2020 à 16:06

Je n'arrive pas cela marche pas quand je mes

Private Sub Worksheet_Change(ByVal Target As Range)
Range("B18").Value = Application.WorksheetFunction.VLookup(Range("B18"), Sheets("Produits").Range("B:C"), 2, False)
End Sub

Le 01/11/2020 à 16:26

Quelqu'un aurai une idée

Le 01/11/2020 à 16:50

Re,

Un exemple.....

9recherchev-en-vba.xlsm (19.90 Ko)

Cordialement,

Le 01/11/2020 à 16:51

j'ai testé avec cette formule aussi , mes cela fonction toujours pas

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B18")) Is Nothing Then
If WorksheetFunction.IsNumber(Target.Value) Then
Application.EnableEvents = False
Table2 = Sheets("Produits").Range("B:C")
Target.Value = Application.WorksheetFunction.VLookup(Target.Value, Table2, 2, False)
Application.EnableEvents = True
End If
End If
End Sub

Le 01/11/2020 à 17:10

Re,

Je ne suis pas sur de comprendre....

Tu saisis en B18 puis tu fais une rechercheV de B18 pour inscrire le résultat en...B18...?...

Un autre exemple sans bouton...

RechercheV de B18 et résultat en C18

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim resultat As Variant
   If Not Application.Intersect(Target, Range("B18")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    If IsNumeric(Target.Value) Then
      resultat = IIf(IsError(Application.VLookup(Range("B18"), Sheets("Produits").Range("B:C"), 2, False)), "non trouvé", Application.VLookup(Range("B18"), Sheets("Produits").Range("B:C"), 2, False))
      Range("C18") = resultat
    Else
      MsgBox "Veuillez saisir un nombre"
      Range("B18:C18").ClearContents
    End If
   End If
End Sub

7recherchev-en-vba-v2.xlsm (19.09 Ko)

Cordialement,

Le 01/11/2020 à 17:20

Merci j'ai réussi en partie ^^

Le 01/11/2020 à 17:23

Il y a t'il un moyen de simplifier ceci

Range("B19").ClearContents
Range("B19").Value = Application.WorksheetFunction.VLookup(Target.Value, Sheets("Produits").Range("A:D"), 1, False)
Range("C19").ClearContents
Range("C19").Value = Application.WorksheetFunction.VLookup(Target.Value, Sheets("Produits").Range("A:D"), 3, False)
Range("I19").ClearContents
Range("I19").Value = Application.WorksheetFunction.VLookup(Target.Value, Sheets("Produits").Range("A:D"), 4, False)

Le 01/11/2020 à 17:47

Re,

A par l'effacement, je ne vois pas comment simplifier....

Dim plage As Range
  Set plage = Sheets("Produits").Range("A:D")
  Range("B19:C19,I19").ClearContents
  Range("B19").Value = Application.WorksheetFunction.VLookup(Target.Value, plage, 1, False)
  Range("C19").Value = Application.WorksheetFunction.VLookup(Target.Value, plage, 3, False)
  Range("I19").Value = Application.WorksheetFunction.VLookup(Target.Value, plage, 4, False)

Cordialement,

Le 01/11/2020 à 18:24

Super merci

Sinon comment faire pour ajuster automatiquement la hauteur de la cellule B19

Le 01/11/2020 à 22:08

Ma cellule B19 et fusionné et je n'arrive pas a ajuster automatiquement en hauteur ?

Le 02/11/2020 à 11:08

Bonjour,