Bonjour,

j'aimerais pouvoir après avoir exécuté ce sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test10()
Dim LastLig As Long, i As Long
Application.ScreenUpdating = False
With Worksheets(1)
LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To LastLig
If Cells(i, 27) <> "" Then
    Cells(i, 38) = Cells(i, 27)
Else
    Cells(i, 38) = Cells(i, 30)
End If
Next i
End With
End Sub
remplacer les valeurs vides restantes (puisque cells(i, 30) ont certaines valeurs vides) de la colonne 38 (AL) par une valeur entrée par l'utilisateur dans un InputBox.

J'ai essayé de procéder dans le sens inverse. C'est à dire remplir la totalité des cellules de la colonnes 38 par la valeur rentrée par l'utilisateur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub testdate()
Range("AL2", [AL65000].End(xlUp)) = InputBox("Date d'arrêtée")
End Sub
Pour ensuite exécuter le premier sub (ci-avant). Mais sans résultats.

Je vous remercie par avance