Discussion :

[hadrien4789]

Bonjour à tous,

J'ai un fichier vba avec des valeurs en dur et des formules.

Je cherche une formule pour que lorsque la cellule G & i a la valeur toto alors je sélectionne la cellule C & i -1 et j'applique le contenu de cette cellule (qui est une formule) à toutes les autres cellules non vide de la colonne.

J'ai essayé la formule suivante qui ne marche pas:

Code :

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

1
2
3
 
Range("C" & i - 1).Select
 'Selection.AutoFill Destination:=Range("C & i -1").End(xlDown).Row

Merci beaucoup pour votre aide

[BENNASR]

Bonsoir
Débutant méfiez de mes propositions qui sont des bricolage
peut être comme ça :

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
Sub Recxhrche()
Dim X As String
Dim Y As String
Dim Plage As Range
Dim Cel As Range
X = Application.InputBox("Entrez la valeur recherchée", "Valeur", Type:=2)
If X = False Then Exit Sub
Set Plage = Sheets("Feuil1").Range("G1:G500") ' à adapter
For Each Cel In Plage
 If Cel.Value = X Then
   Y = Cells(Cel.Row - 1, 3)
  End If
Next Cel
For i = 1 To 500
If Cells(i, 3) = "" Then Cells(i, 3) = Y
Next
End Sub