besoin code VBA Excel

Version imprimable

13/09/2010, 22h34
blforprogress

besoin code VBA Excel

Bonjour
C'est mon tout premier post!
Je suis débutant en VBA
Mon besoin: un code VBA excel 2003
J'ai des enregistrements en liste dans une feuille Excel et le nombre de ces enregistrements évolue dans le temps. Pour simplifier disons que chaque enregistrement à trois champs respectivement dans les colonnes A,B,C: date, qté, nc;
Ce que j'attends du code:
pour chaque ligne, si la date (colonne A) n'est pas vide, il contrôle la cellule adjacente de droite (champ "qté") et si celle ci contient la valeur zéro alors il marque 1 dans la cellule encore adjacente à droite (champ "nc"); il ne fait rien dans le champ "nc"si la "qté" est <>0
Il continue ensuite le balayage de la liste tant qu'il existe une date en colonne A!
Merci
13/09/2010, 22h40
mercatog

Tu as vraiment besoin de vba pour ça? par formule: en C2: =SI(ET(A2<>"";B2=0);1;"") et tu tire vers la fin
13/09/2010, 23h38
blforprogress

Bonsoir mercatog et merci pour ta promptitude. Oui j'ai besoin d'écrire cette procédure VBA car ce bout de code fera partie d'un process complet de calculs stat.

Je propose que tu commences par lire les tutos du site, ils sont très utiles pour débuter. si tu as une question spécifique, tu la pose au forum.
voilà la macro qui fera ce que tu souhaite. mais dans quelle mesure elle te sera utile?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim LastLig As Long, i As Long
 
With Sheets("Feuil1")                                                       'à adapter le nom de la feuille
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row                           'Dernière cellule remplie de la colonne A
    For i = 2 To LastLig
        If .Range("A" & i).Value <> "" And .Range("B" & i).Value = 0 Then   'Si la condition est vraie
            .Range("C" & i).Value = 1                                       'On écrit 1 dans la cellule Ci
        Else                                                                'Sinon
            .Range("C" & i).ClearContents                                   'On efface éventuellement ce qu'il y avait dans la cellule Ci
        End If
    Next i
End With

14/09/2010, 10h44
blforprogress

Merci encore pour le code que je vais tester demain et pour tes recommandations. Juste pour te dire en quoi ça va m'aider c'est que ce code sera appelé par d'autres procédures et que les centaines de lignes seront traitées en quasi instantané sans mon intervention (car en réalité je dois faire la même manip sur 10 colonnes correspondant à des lignes d'usinage!) suivi d'analyse par tcd

merci mercatog c'est exactement ce dont j'avais besoin ça fonctionne c'est parfait!