Probleme ecriture dans cellule

[Laurent]

Bonjour au forum,

Je debute en VB, et je ne vois pas trop ou est mon erreur. Mon souci actuellement est que ma boucle d`ecriture dans la colonne C ne marche pas....

Private Sub CommandButton1_Click()

Sheets('Sheet6').Activate
Dim I As Integer
Dim j As Integer
Dim Mavaleur As Date
Dim Texte As String
Dim plage As Variant

With Sheets('Sheet6')
    plage = .Range('A2:C' & .Range('C5000').End(xlUp).Row)
End With

For j = 1 To UBound(plage)

If plage(j, 2) = '8' Then

plage(j, 3) = 0

Else

plage(j, 3) = Now + plage(j, 2)

End If
Next j
End Sub

Merci d`avance a tous

 

[2passage]

Bonjour,

Comme je prefère refaire que débugger, voici ma proposition :

Private Sub CommandButton1_Click()
Dim cellul As Range
For Each cellul In Range('C2:C' & Range('C5000').End(xlUp).Row)
    If cellul.Offset(0, -1).Value = '8' Then
        cellul.Value = 0
    Else
        cellul.Value = Now + cellul.Offset(0, -1).Value
    End If
Next
End Sub

D'apres ce que je vois, ta variable Plage ne correspond pas à une plage mais à un variant qui ne pointe pas sur la feuille. EN modifiant ta boucle comme suit, ca marche, normallement :

For j = 1 To Range('C5000').End(xlUp).Row
    If Cells(j, 2) = '8' Then
        Cells(j, 3) = 0
    Else
        Cells(j, 3) = Now + Cells(j, 2)
    End If
Next j

A+

Message édité par: 2passage, à: 12/08/2005 10:29

 

[Laurent]

Merci de ton aide.
J`ai essaye ton code , mais ca bug, comme pour le mien,avec

Type mismatch


a la ligne

        cellul.Value = Now + cellul.Offset(0, -1).Value

 

[Shining Hawk]

Salut Laurent,

essaye de remplacer le '+' par un '&', ca devrait aller mieux.
Il se peut que tu aies des soucis d'affichage et de valeurs (à cause du format de la cellule) ; pour éviter tout soucis, formate le texte ainsi:
cellul.Value = Now & ' ¤ ' & cellul.Offset(0, -1).Value

B) H-6 avant le W-E...