Discussion :

[khroutchev]

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

[Daranc]

pas tester essayes ceci

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

[Theze]

Bonjour,

Teste ce qui suit :

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
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é.

[Daranc]

Pas grave , javais pas regardé mon code de l'imputbox

[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 ?

[khroutchev]

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