Problème .End(xlUp) dans un module

**justbrow** · 13/05/2016, 07h38

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 :

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

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.

**kiki29** · 13/05/2016, 08h27

Salut, pb de syntaxe entre autres, commence par lire : Dernière ligne et la dernière colonne renseignées d'une feuille

**justbrow** · 13/05/2016, 08h44

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...

**Kiouane** · 13/05/2016, 08h51

Cela devrait fonctionner pour toi.

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
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

**unparia** · 13/05/2016, 08h54

Bonjour,
Je n'aime pas cette ligne :

Code :

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

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 :

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

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 ...

**justbrow** · 13/05/2016, 09h11

Envoyé par Kiouane

Cela devrait fonctionner pour toi.

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
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...

**Kiouane** · 13/05/2016, 09h13

Tu peux nous en dire plus sur ta formule? et aussi me dire sur quelle ligne ça bloque?

**justbrow** · 13/05/2016, 09h14

Envoyé par unparia

Bonjour,
Je n'aime pas cette ligne :

Code :

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

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 :

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

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))

**Kiouane** · 13/05/2016, 09h22

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.

**pijaku** · 13/05/2016, 09h33

Bonjour à tous,

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

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 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

**Kiouane** · 13/05/2016, 09h42

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

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
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

**justbrow** · 13/05/2016, 10h03

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 :

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
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 !!

**Kiouane** · 13/05/2016, 10h08

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

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
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