Problème .End(xlUp) dans un module

Version imprimable

13/05/2016, 07h38
justbrow

Problème .End(xlUp) dans un module
bonjour,
je suis débutant en ce qui concerne VBA, j'ai pour but de faciliter l'entrée de données dans un tableau de frais de déplacement sur excel.

J'ai donc un tableau avec plusieurs montant a renseigner, ces montantSvont permettre de savoir si la personne a dépasser ou non un plafond maximum (colonne G, plage (G7;G29).pour renseigner ces montants La personne doit appuyer sur un bouton "nouveau déplacement".ce bouton lance donc un userform (userform6) qui permet la saisie des montants, l'userform envoie les données dans le tableau lorsque que l'on appuis sur le bouton valider.

Cependant je veux que lorsque la ligne de montants est saisie, un module (module 4) vérifie si le plafond dans la colonne G a été dépassé ( valeur colonne G >0) ou si il n'a pas été dépassé (valeur colonne G = 0). Si le plafond n'a pas été dépassé alors un userform s'affiche pour demander si l'on veut enregistrer un autre déplacement ( userform9) alors que si le plafond a été dépassé la cellule se colore en rouge et un userform s'affiche pour alerter la personne ( userform7).
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub plafond() If Range("G29").End(xlUp) = 0 Then UserForm9.Show Else Range("G29").End(xlUp).Interior.ColorIndex = 4 UserForm7.Show End If End Sub
Je veux que le module fasse la vérification sur la dernière cellule remplie de la colonne G du tableau ainsi c'est toujours la dernière saisie qui est vérifié d'ou l'utilisation de .end(lUp) dans mon code

Enfaite mon problème c'est que ce code marche dans une colonne normale ou les valeurs des cellules ne provienne pas de formule. les valeurs de ma colonne G sont calculé avec une formule. le code ne fonctionne pas sur cette colonne comme si le End(Xlup) considérait que les cellules qui contiennent une valeur grâce a une formule sont des cellules vides.
13/05/2016, 08h27
kiki29

Salut, pb de syntaxe entre autres, commence par lire : Dernière ligne et la dernière colonne renseignées d'une feuille
13/05/2016, 08h44
justbrow

Je vais essayer de trouver ou est mon erreur, mais ce que je comprend pas c'est que ce code marche sur une autre colonne avec des cellules sans formule...

Cela devrait fonctionner pour toi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub plafond()
 
Dim n As Integer
 
n = Range("G" & Rows.Count).End(xlUp).Row
 
 If Range("G" & n) = 0 Then
 
UserForm9.Show
     Else
  Range("G" & n).Interior.ColorIndex = 4
UserForm7.Show
     End If
 
 
End Sub

13/05/2016, 08h54
unparia

Bonjour,
Je n'aime pas cette ligne :

Code:

If Range("G29").End(xlUp) = 0 Then

qui, ne précisant pas la propriété, est subordonnée à la bonne volonté de VBA (souvent gentil, mais ...)
Il faut préciser la propriété. Un objet range est doté de deux propriétés à utiliser pour se référer à son contenu : la propriété Value et la propriété text.
Dans ton cas (formules présentes), je préfèrerais personnellement utiliser la propriété Text :

Code:

If Range("G29").End(xlUp).text = "0" Then

Mais même ainsi, on pourrait être confronté à des problèmes en cas de formules mal construites. Et comme on ignore tes formules ...

Citation:

Envoyé par Kiouane

Cela devrait fonctionner pour toi.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub plafond()
 
Dim n As Integer
 
n = Range("G" & Rows.Count).End(xlUp).Row
 
 If Range("G" & n) = 0 Then
 
UserForm9.Show
     Else
  Range("G" & n).Interior.ColorIndex = 4
UserForm7.Show
     End If
 
 
End Sub

Nan ca ne marche pas...

13/05/2016, 09h13
Kiouane

Tu peux nous en dire plus sur ta formule? et aussi me dire sur quelle ligne ça bloque?
13/05/2016, 09h14
justbrow

Citation:

Envoyé par unparia

Bonjour,
Je n'aime pas cette ligne :

Code:

If Range("G29").End(xlUp) = 0 Then

qui, ne précisant pas la propriété, est subordonnée à la bonne volonté de VBA (souvent gentil, mais ...)
Il faut préciser la propriété. Un objet range est doté de deux propriétés à utiliser pour se référer à son contenu : la propriété Value et la propriété text.
Dans ton cas (formules présentes), je préfèrerais personnellement utiliser la propriété Text :

Code:

If Range("G29").End(xlUp).text = "0" Then

Mais même ainsi, on pourrait être confronté à des problèmes en cas de formules mal construites. Et comme on ignore tes formules ...

la formule présente dans la colonne G est =SI(ET(H14="";I14="";J14="";K14="";L14="";M14="");"";SOMME(H14:M14))
13/05/2016, 09h22
Kiouane

Si j'ai bien compris dans ta plage (G7:G27) tu as cette formule et tu veux faire ce test sur la dernière cellule non vide. Mais avec le end(xlup) il va toujours te retourner la cellule("G27"). Je te propose plutôt de faire un test sur les cellules. Je ne sais pas si j'ai bien compris.

Bonjour à tous,

Regarde ce test basé sur la méthode find avec le paramètre xlValues :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim L As Integer
L = derlig_reelle(Range("G7:G27"))
Debug.Print L
End Sub
 
Private Function derlig_reelle(plage As Range) As Long
   'cas d'absence de données dans la plage à traiter :
   If WorksheetFunction.CountA(plage) = 0 Then derlig_reelle = 1: Exit Function
   'dans tous les autres cas :
   derlig_reelle = plage.Find("*", , xlValues, , , xlPrevious).Row
End Function

Je ne sais pas si j'ai bien compris ou si je le fais bien mais en tout cas voilà ma petite contribution.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub plafond()
 
For i = 27 To 7 Step -1
 
If Cells(i, 7).Value <> "" Then
 
       If Cells(i, 7).Value = 0 Then
           UserForm9.Show
       Else
          Cells(i, 7).Interior.ColorIndex = 4
          UserForm9.Show
       End If
       Exit For
 
End If
 
Next i 
 
End Sub

Citation:
Envoyé par Kiouane
Je ne sais pas si j'ai bien compris ou si je le fais bien mais en tout cas voilà ma petite contribution.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub plafond() For i = 27 To 7 Step -1 If Cells(i, 7).Value <> "" Then If Cells(i, 7).Value = 0 Then UserForm9.Show Else Cells(i, 7).Interior.ColorIndex = 4 UserForm9.Show End If Exit For End If Next i End Sub
Ca marche ! merci beaucoup ! Bon je dois t'avouer que j'ai du mal a comprendre le code mais ca marche c'est le principal !! :mouarf::mrgreen:

Tu peux marquer la discussion comme résolue. Et un petit pouce vert pour mon intervention m'encouragerait. ^^

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub plafond()
 
 
 
For i = 27 To 7 Step -1 'On commence par la dernière ligne et on remonte jusqu'à la première ligne de ta plage
 
If Cells(i, 7).Value <> "" Then ' On vérifie s'il y a ou non un calcul qui s'est fait sur la ligne. Si oui, on lance ta procédure.
 
 If Cells(i, 7).Value = 0 Then 
  UserForm9.Show
     Else
  Cells(i, 7).Interior.ColorIndex = 4
  UserForm9.Show
     End If
 Exit For 'On sort de la boucle une fois ta procédure réalisée pour éviter de le faire pour toutes les lignes 
End If
 
Next i
 
 
 
End Sub

13/05/2016, 10h49
justbrow

Comment ca se fait que la lettre de ma colonne n'apparait nul part dans le code ? comment le code prend en compte la bonne colonne ?
13/05/2016, 10h50
Kiouane

Cells(x,y) ===> x pour le numéro de ligne, y pour le numéro de colonne
13/05/2016, 10h53
justbrow

AH oui d'accord c'est plus clair ! Merci pour ton aide :mrgreen: