Discussion :

[Runsh63]

Bonjour,

Tout d'abord, un grand merci à vous tous qui m'avez apporté votre aide depuis mon inscription. Je débute en VBA et suis bluffé par ce que l'on peut faire avec. Bref, j'essaye de comprendre les bouts de code que vous m'avez si gentiment envoyé et qui m'aident beaucoup plutôt que de m'arrêter à les copier bêtement sans aller plus loin. Malgré ça, je n'arrive toujours pas à faire fonctionner les miennes... Un exemple avec l'exemple ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
Dim Montant As Range, LastLig As Long
LastLig = Range("A65536").End(xlUp).Row
 
    For Each Montant In Range("A2:A" & LastLig)
        If Montant.Value < 0 Then Range(Montant.Offset(0, 1)).Formula = "C" Else
        If Montant.Value > 0 Then Range(Montant.Offset(0, 1)).Formula = "D"
 
    Next
 
End Sub

Mon but : Pour chaque montant négatif, inscrire un C sur la cellule de droite ou un D pour un montant positif.
Pourriez-vous me corriger mon erreur et surtout si vous avez la patience m'expliquer ce qui ne va pas dans ce bout de code SVP ?

Merci d'avance !

Runsh

[mercatog]

Re bonjour
Ton code modifié

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
Sub test()
Dim Montant As Range, LastLig As Long
 
With Sheets("Feuil1")                            'à adapter
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
 
    For Each Montant In .Range("A2:A" & LastLig)
        If Montant.Value < 0 Then
            Montant.Offset(0, 1).Value = "C"
        Else
            Montant.Offset(0, 1).Value = "D"
        End If
    Next Montant
End With
End Sub

Je ne sais quoi expliquer, en traduisant en français ça reste compréhensible

Pour chaque cellule de A2:Axxx, si la valeur de la cellule est négative, alors écrire dans la cellule juste à droite C, sinon écrire dans la cellule juste à droite D.

par précaution, aies l'habitude de définir pour chaque range, la feuille sur laquelle il appartient.

[Runsh63]

mercatog,

Comme (j'espère) beaucoup de gens, j'ai débuté en VBA en passant par l'enregistreur puis en lisant comment Excel traduit celà.
D'où = formula (lorsque l'on veut écrire quelque chose dans une cellule.) De plus dans ma tête . Value = il faut absolument une valeur numérique...

Quoiqu'il en soit, merci (une fois de plus !)

Runsh

[Didier Gonard]

Bref, j'essaye de comprendre les bouts de code que vous m'avez si gentiment envoyé et qui m'aident beaucoup plutôt que de m'arrêter à les copier bêtement sans aller plus loin. Malgré ça, je n'arrive toujours pas à faire fonctionner les miennes..

l'intérêt des tutoriels, entre autre, est qu'il sont souvent accompagnés de code largement commenté, en essayant de les personnaliser, on part d'une base dont on sait qu'elle fonctionne, il y a même des tutos genre bien débuter avec...


cordialement,

Didier

[Runsh63]

C'est vrai que je profite beaucoup des réponses adaptées à mes besoins du moment mais vous avez raison Didier, j'essaierai de les lire quand j'aurai plus de temps.

Cordialement,

Runsh