VBA souci variable

[yusukens]

Bonsoir
Pouvez vous m'aider.
je suis débutant en VBA, j'ai écrit un petit code, pouvez me dire ou est ce que je me suis trompé ?? j'arrive pas a corriger mon erreur.

voici un petit tableau :


bla bla bla 001
bla bla bla 009
bla bla bla 003
bla bla bla 002
bla bla bla 010
bla bla bla 006
bla bla bla 005
bla bla bla 004






Voici ce que j'essaye de faire, je met en VERT les variables que j'essaye de créer.
merci de votre aide:

Sub MAX_MsgBox()
Dim zone
Dim Plage
Dim vMAX

[COLOR=seagreen]'Selectionner la derniere valeur en bas du tableau et le mettre dans la variable ZONE[/COLOR]
zone = Range("D1").End(xlDown)
[COLOR=seagreen]'Selectionner la plage de D1 jusqu'a la derniere valeur, et le mettre dans la variable plage[/COLOR]
Plage = Range("D1:Zone")
[COLOR=seagreen]'Trouver la valeur MAX de la plage et le mettre cette variable dans la variable vMAX[/COLOR]
vMAX = FormulaLocal = "=MAX(Plage)"
[COLOR=seagreen]'Mettre cette valeur max dans un MsgBox[/COLOR]
MsgBox (vMAX)

End Sub

 

[wamme]

Re : VBA souci variable

Bonsoir.
En contournant un peu la difficulté:

Sub MAX_MsgBox()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=MAX(C[3])"
MsgBox (Range("A1").Value)
End Sub

 

[yusukens]

Re : VBA souci variable

Merci avoir répondu,
mais en fait il faut vraiment passer par des variables, car
ces variables me serviront ultérieurement.

après quelque heure de recherche encore j'ai réussi à mettre tous ces valeurs dans das variables. par contre je bloque sur le dernier, je n'arrive pas a afficher le résultat trouvé dans un MsgBox

voici le nouveau code qui marche bien sauf pour le MsgBox qui indique la valeur FAUX au lieu de la valeur MAX

Sub MAX_MsgBox()
Dim zone
Dim Plage
Dim vMAX
[COLOR=seagreen]'Selectionner la derniere valeur en bas du tableau et le mettre dans la variable ZONE[/COLOR]
Set zone = Range("D1").End(xlDown)
zone.Name = "Kzone"
[COLOR=seagreen]'Selectionner la plage de D1 jusqu'a la derniere valeur, et le mettre dans la variable plage[/COLOR]
Set Plage = Range("D1:Kzone")
Plage.Name = "KPlage"
[COLOR=seagreen]'Trouver la valeur MAX de la plage et le mettre cette variable dans la variable vMAX[/COLOR]
vMAX = FormulaLocal = "=MAX(KPlage)"
[COLOR=seagreen]'Mettre cette valeur max dans un MsgBox[/COLOR]
MsgBox vMAX
End Sub

 

[wamme]

Re : VBA souci variable

OK alors cette solution:


Sub MAX_MsgBox()
Dim zone
Dim Plage
Dim vMAX
'Selectionner la derniere valeur en bas du tableau et le mettre dans la variable ZONE
Set zone = Range("D1").End(xlDown)
zone.Name = "Kzone"
'Selectionner la plage de D1 jusqu'a la derniere valeur, et le mettre dans la variable plage
Set Plage = Range("D1:Kzone")
Plage.Name = "KPlage"
'Trouver la valeur MAX de la plage et le mettre cette variable dans la variable vMAX
Range("IV1").FormulaR1C1 = "=MAX(C[4])" 'met la formule dans une cellule
vMAX = Range("IV1").Value 'affecte la valeur à la variable vMAX
Range("IV1").Value = "" 'efface la cellule devenue inutile
MsgBox (vMAX) 'et le tour est joué ...
End Sub

 

[yusukens]

Re : VBA souci variable

A Yeah, ça marche.
passer par une cellule extérieur est très intéressant.
plus ça va et plus j'adore la VBA, merci a toi de m'avoir aidé.