Remplacement de valeurs vides par valeur entrée (InputBox)

Version imprimable

Bonjour,

j'aimerais pouvoir après avoir exécuté ce sub
Code:

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:

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 :ccool:

pas tester essayes ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test10()
Dim LastLig As Long, i As Long, A As Variant
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
Tabl = .Range(.Cells(2, 38), .Cells(LastLig, 38))
A = InputBox("Valeur")
 
For t = 1 To UBound(Tabl, 1)
If Tabl(t, 1) = "" Then
Tabl(t, 1) = A
End If
Next
.Range(.Cells(2, 38), .Cells(LastLig, 38)).Value = Tabl
 
End With
End Sub

Bonjour,

Teste ce qui suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub test10()
 
    Dim LastLig As Long, i As Long
    Dim Valeur
 
    'Application.ScreenUpdating = False
 
    With Worksheets(1)
 
        LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
 
        Valeur = InputBox("Date d'arrêtée")
 
        If Not IsDate(Valeur) Then
 
            MsgBox "Entrez une date valide au format 'jj/mm/aaaa' !"
            Exit Sub
 
        End If
 
        For i = 2 To LastLig
 
            If Cells(i, 27) <> "" Then
 
                Cells(i, 38) = Cells(i, 27)
 
            Else
 
                Cells(i, 38) = IIf(Cells(i, 30) <> "", Cells(i, 30), CDate(Valeur))
 
            End If
 
        Next i
 
    End With
 
End Sub

Hervé.

Oups,

Désolé, pas rafraîchi :?

Hervé.

08/08/2013, 14h04
Daranc

Pas grave , javais pas regardé mon code de l'imputbox :mouarf:
08/08/2013, 15h56
khroutchev

Merci à vous deux !
J'ai choisi le deuxième code, tout fonctionne à une exception.
Les valeurs "vides" ne prennent pas Valeur (rentrée par l'utilisateur) et restent vides. Le programme ne plante pas pourtant ?! Peut-être un problème de version ? :roll:
08/08/2013, 16h44
khroutchev

Le problème venait tout simplement de l'espace vide " " et non "".
Meric pour tout !:ccool: