Discussion :

[kev159]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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