formule vba

Bonjour,

Je recherche une formule vba qui pourrais recherche les cellules non_vides
si celle ci est non vide il la copie et colle la valeur dans la meme cellule pour enlever la fonction recherchev. je vous joint la fomule que j'ai deja fais.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Windows("NUMORDRE.XLS").Activate Sheets("0000 à 1074").Select Range("A3:L3").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("Validations Programmes.xls").Activate Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Columns("A:A").EntireColumn.AutoFit Columns("C:J").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft ActiveWindow.ScrollColumn = 1 Selection.ColumnWidth = 32.43 Selection.ColumnWidth = 47.86 ActiveWindow.ScrollColumn = 1 Range("A1").Select Columns("B:B").EntireColumn.AutoFit Sheets("Validations").Select End Sub

---

Pour definir

dans A1 j'entre manuellement un n°
B1 C1 et D1 sont des fonction rechercheV dans une autre feuille du classeur.

Donc je voudrais que si B1 C1 et D1 sont rempli il copie et colle la valleur dans la meme cellule. et enlever les foction recherche v et avoir que la valeur.

Merci d'avance dite moi si je dois etre plus clair.

Salutations

Pour répondre simplement à ta question, (tu peux utiliser Find directement en vba), essaie ceci

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Byte If Not Intersect(Target, Columns("A:A")) Is Nothing And Target.Cells.Count = 1 Then For i = 1 To 3 Target.Offset(0, i).Value = Target.Offset(0, i).Value Next i End If End Sub

---

à mettre dans l'évènement Change de la feuille

Je te remercie ta formule fonctionne comme je le souhaitais.
si je veux a la fin de la macro que la feuil1 soit vidée je peux ecrire ca comment.?

Code:

---

sheets("feuil1").cells.clearcontents

---