A voir également:
- Récupérer valeur cellule vba
- Vba récupérer valeur cellule - Meilleures réponses
- Récupérer la valeur d'une cellule excel vba - Meilleures réponses
- VBA récupération valeur d'une cellule ✓ - Forum - VB / VBA
- La valeur d'une cellule dans une variable VBA ✓ - Forum - Bureautique
- VBA excel - Récupérer une valeur contenue dans une cellule fusionnée - Forum - VB / VBA
- Récupérer la valeur d'une cellule ✓ - Forum - VB / VBA
- VBA Récupérer coordonnées d'une cellule ✓ - Forum - VB / VBA
1 réponse
gbinforme
- Messages postés
- 14934
- Date d'inscription
- lundi 18 octobre 2004
- Statut
- Contributeur
- Dernière intervention
- 24 juin 2020
Bonjour,
Lorsque tu met du code utilise les codes car c'est plus lisible.
Ta macro corrigée :
Lorsque tu met du code utilise les codes car c'est plus lisible.
Ta macro corrigée :
Dim x As Variant, celfind As Range, lig As Integer, col As Integer, m As Range With Worksheets("Feuil3").Range("B1:B100") x = InputBox("saisir le numéro de la commande") Set celfind = .Find(x) lig = celfind.Row With Worksheets("feuil1").Range("A1:D3") .Copy Destination:=Worksheets("feuil2").Range("A1") End With Set m = Worksheets("feuil2").Rows("1").Find(celfind) col = m.Column Worksheets("feuil2").Cells(3, col).Value = Worksheets("feuil3").Cells(lig, 3).Value End With
Mercii infiniment
ça marche très bien