Vba
Ordi94
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
merci de m'aider a résoudre ce problème
Var = InputBox("Mot à rechercher ?")
For Each cell In Range("A1:A10")
If cell.Value = Var Then
Selection.EntireRow.Select
'cell.Select
ActiveCell.Copy
ActiveCell.Offset(0, 3).Select
je cherche la valeur de var
selection la ligne
la valeur A1 soit copier sur D1
la valeur B1 soit copier sur E1
la valeur c1 soit copier sur E2
merci de m'aider a résoudre ce problème
Var = InputBox("Mot à rechercher ?")
For Each cell In Range("A1:A10")
If cell.Value = Var Then
Selection.EntireRow.Select
'cell.Select
ActiveCell.Copy
ActiveCell.Offset(0, 3).Select
je cherche la valeur de var
selection la ligne
la valeur A1 soit copier sur D1
la valeur B1 soit copier sur E1
la valeur c1 soit copier sur E2
2 réponses
Bonsoir,
For Each cell In Range("A1:A10")
If cell.Value = Var Then
Selection.EntireRow.Select
cell.Select
ActiveCell.Copy
ActiveCell.Offset(0, 3).Select
ActiveSheet.Paste
End If
Next cell
Bonjour a vous deux
si copie sur cellules adjacentes, sans select
si copie sur cellules adjacentes, sans select
Sub test()
'la valeur A1 soit copier sur D1
'la valeur B1 soit copier sur E1
'la valeur c1 soit copier sur E2 ???? F1 oui
With Worksheets("feuil1")
Var = InputBox("Mot à rechercher ?")
For Each Cell In Range("A1:A10")
If Cell.Value = Var Then
Cell.Copy Cell.Offset(0, 3)
Cell.Offset(0, 1).Copy Cell.Offset(0, 4)
Cell.Offset(0, 2).Copy Cell.Offset(0, 5)
Exit For
End If
Next Cell
End With
End Sub
