Discussion :

[Thomas69]

Voila j'ai modifier une macro qui doit pouvoir compter et apres etablir un journal de bord qui inscrit des infos a chaque fois que je depasser 3000 tonnes

et je voudrais recuper la derniere ligne du journal de bords et y faire apparaitre sur un message box

voila ma macro

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
Sub compter()

Dim totlig As Long, poid As Double, i As Long
With Sheets("Saisie") ' Travaille sur la feuille Saisie
totlig = .Range("Q65536").End(xlUp).Row ' Recupere le nombre de ligne
poid = 0# ' Initialise le poid calculé
Sheets("Rapport").Range("A2:A65500").ClearContents
Sheets("Rapport").Range("B2:C65500").ClearContents
Sheets("Rapport").Range("C2:C65500").ClearContents
For i = 5 To totlig ' Demarre la boucle à la igne 5, la 1,2,3,4 sont des titres
        If IsNumeric(Range("Q" & i).Value) Then
        poid = poid + (.Range("Q" & i).Value / 1000) ' additione la valeur poids ramenée en tonnes
        End If
If poid >= 3000 Then ' test avec la prochaine valeur si ca depasse les 3000 tonnes
Sheets("Rapport").Range("A" & Sheets("Rapport").Range("A65536").End(xlUp).Row + 1) = poid & " Kg" & "  A la ligne " & i
Sheets("Rapport").Range("B" & Sheets("Rapport").Range("B65536").End(xlUp).Row + 1) = Range("M" & i)
Sheets("Rapport").Range("C" & Sheets("Rapport").Range("C65536").End(xlUp).Row + 1) = Range("J" & i)


Sheets ("Rapport")
DerniereLigne = Range(Cel).CurrentRegion.End(xlDown).Row
MsgBox ("depassement a la ligne: DerniereLigne")

.Range("Q" & i).Interior.ColorIndex = 3 ' je colorie en rouge la cellule
poid = 0# ' remise à zero des calculs
Else
.Range("Q" & i).Interior.ColorIndex = xlNone ' sinon j'enleve la couleur
End If
Next i
End With
End Sub

et mon probleme viens que je n'arrive pas a lire la derniere ligne et la faire apparaitre dans une message box


Ps:j'ai pris la méthode de lire la derniere ligne de ouskel dans la partie contribution

[ouskel'n'or]

Essaie ça

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
Sub compter()
Dim totlig As Long, poid As Double, i As Long
Dim FL1 As Worksheet
Dim FL2 As Worksheet
    Set FL1 = Worksheets("Saisie")
    Set FL2 = Worksheets("Rapport")
    With FL1 ' Travaille sur la feuille Saisie
        totlig = .Range("Q65536").End(xlUp).Row ' Recupere le nombre de ligne
        poid = 0# ' Initialise le poid calculé
        FL2.Range("A2:A65500").ClearContents
        FL2.Range("B2:C65500").ClearContents
        FL2.Range("C2:C65500").ClearContents
        For i = 5 To totlig ' Demarre la boucle à la igne 5, la 1,2,3,4 sont des titres
            If IsNumeric(Range("Q" & i).Value) Then
                poid = poid + (.Range("Q" & i).Value / 1000) ' additione la valeur poids ramenée en tonnes
            End If
            If poid >= 3000 Then ' test avec la prochaine valeur si ca depasse les 3000 tonnes
                FL2.Range("A" & FL2.Range("A65536").End(xlUp).Row + 1) = poid & " Kg" & "  A la ligne " & i
                FL2.Range("B" & FL2.Range("B65536").End(xlUp).Row + 1) = Range("M" & i)
                FL2.Range("C" & FL2.Range("C65536").End(xlUp).Row + 1) = Range("J" & i)
 
                MsgBox "depassement à la ligne : " & FL2.Range(Cel).CurrentRegion.End(xlDown).Row
 
                .Range("Q" & i).Interior.ColorIndex = 3 ' je colorie en rouge la cellule
                poid = 0# ' remise à zero des calculs
              Else
                .Range("Q" & i).Interior.ColorIndex = xlNone ' sinon j'enleve la couleur
            End If
        Next i
    End With
End Sub

Si tu n'indentes pas ton code, tu vas au devant de grosses difficultés pour trouver tes erreurs
A+

[Thomas69]

Désolé pour l'indentation j'oublie a chaque fois

desoler ouskel mais ton programme plante a la ligne

Code :

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

MsgBox "depassement à la ligne : " & FL2.Range(Cel).CurrentRegion.End(xlDown).Row

voici l'erreur qui apparait

la methode'Range'de l'objet'_Worksheets' à échoué

[AlainTech]

Normal...

cel n'est pas défini.

[Thomas69]

Code :

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

MsgBox "depassement à la ligne : " & FL2.Range("A").CurrentRegion.End(xlDown).Row

ben j'ai essaye de definir Cell comme ceci ca ne marche pas
il faut que je le definisse a part?mais comment?

[ouskel'n'or]

Pour Cel, autant pour moi, je n'avais pas vu.
Remplace "A" par "A1". Un range doit comporter au minimum deux indications, Colonne et ligne.
A1 doit faire partie de la plage de cellule. Si ce n'est pas le cas, remplace le par l'adresse d'une cellule faisant partie de cette plage.
A+

[Thomas69]

Merci ouskel pour les infos
je pensais qu'on pouvait juste informer la colonne ou juste la ligne

mais ca ne marche pas dans le sens que ca m'indique pas la derniere ligne
ca me les indiques toutes

moi ce qui m'interresse c'est juste la derniere ligne

[ouskel'n'or]

Tu devrais faire un tour dans la FAQ ou ici, tu as toutes les indications pour retrouver une dernière ligne selon les circonstances. Lis bien tout

[Thomas69]

Code :

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

1
2
DerniereLigne = Range("A1").End(xlDown).Row
                MsgBox "depassement:" & DerniereLigne

voila le code que j'ai mis
mais ca me fait apparaitre tous mes depassements

et j'ai utilise toutes les forumles dans les liens que tu m'as données

jai du mal a comprendre pourquoi ca ne marche pas
si tu as des infos pour m'aiguiller

[ouskel'n'or]

Si tu le mets dans ta condition et que tu as plusieurs dépassements, c'est normal !
Ce que tu peux faire, c'est sortir du test "If poid >= 3000 Then" et tu ne l'auras qu'une fois. Je ne comprends pas ton pb.

[Thomas69]

merci
tu avais raison
mtn ca marche

merci pour ton aide


une derniere question

comment je peut faire pour recupere ce qu'il y a d'ecrit dans ma derniere cellule?

[ouskel'n'or]

Code :

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

Result = Cells(Range("A1").End(xlDown).Row, NoColonne).value

Et si ça résoud ton pb, n'oublie pas de mettre "Résolu"
A+

[Thomas69]

Code :

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

1
2
Result = Cells(Range("A1").End(xlDown).Row, 1).Value
                MsgBox "depassement:" & Result

J'ai marque ca et ca m'affiche dans la msgbox
lignecontinue1


j'ai tape ensuite ceci pour dire ou je devais allez prendre la cellule

Code :

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

1
2
Result = Cells(FL2.Range("A1").End(xlDown).Row, 1).Value
                MsgBox "depassement:" & Result

et la rien ne s'affiche


et en fesant ca je ne fais qu'apparaitre la 1er cellule et non la derniere

Code :

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

1
2
3
4
 Sub message()
    Result = Sheets("Rapport").Cells(Range("A1").End(xlDown).Row, 1).Value
                MsgBox "depassement:" & Result
    End Sub

la je suis perdus

[ouskel'n'or]

As-tu quelque chose dans tes cellules A1 ou A2 ?

[Thomas69]

dans ma feuille Saisie j'ai rien dans les cellules A1 à A5 ainsi que B1 à B5 ainsi de suite
dans ma feuille Rapport j'ai mon journal de bord
donc mes cellules de A depant de combien de fois j'ai compter 3 000 T

[ouskel'n'or]

Alors tu ne peux pas utiliser

DerniereLigne = Range("A1").End(xlDown).Row

Remplace cette ligne par

Code :

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

    DerniereLigne = Range("A65535").End(xlUp).Row

et essaie de comprendre pourquoi

[Thomas69]

Code :

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

1
2
3
4
5
6
 Sub message()
 
    Sheets("Rapport").Select
    Result = Cells(Range("A1").End(xlDown).Row, 1).Value
                MsgBox "depassement:" & Result
    End Sub

voila j'ai trouver une solution

maintenant il me reste plus qu'as faire apparaitre cette message box sur la feuille saisie