Vb sous excel

Amandine -  
 Lupin -
Bonjour,
Voici mon problème : comment calculer le maximum d'une ligne sous excel avec vb
merci
amandine
A voir également:

5 réponses

Réponse 1 / 5
GallyNet Messages postés 434 Date d'inscription   Statut Membre Dernière intervention   387
 
Une méthode peut être utilisé avec un des case de ton fichier Excel:
tu écrit une forumle (directement dans la case ou indirectement avec le VB) qui calcule le maximun de la ligne et tu récupére le résultat dans le VB

Sinon tu fait une boucle (sa fait longtemps que j'ai pas fait de VB donc il peut y avoir des fautes):
max=range("A1").value (on dit que la ligne commence en A1)
FOR i IN 2 TO X (X nombre de colonne dans la ligne)
IF(max>range("A" & i).value)
max=range("A" & i)
ENDIF
0
Réponse 2 / 5
Amandine
 
oui je pesnse que la boucle est la solution...
le problème c'est que les chiffres dans cette ligne sont dans un programme est change tous les jours....donc une boucle, oui.
mon plus gros problème c'est surtout pour calculer le max en ligne (en colonne j'y arrive) et pour recuperer la valeur.
Peut on mettre for i =A to B par exemple?
0
Réponse 3 / 5
GallyNet Messages postés 434 Date d'inscription   Statut Membre Dernière intervention   387
 
je croit pas que tu puisse utilisé i=A TO B (mais suis pas sur) par contre tu doit pouvoir utiliser la notation 2:3 (pour B:3)
donc tu reprend la boucle en changeant range("A" & i) par range(i & "3")
0
Réponse 4 / 5
Lupin
 
Bonjour,

Je confirme, For i = A to B fonctionne parfaitement,

de même que For i = B to A Step -1

Lupin
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Lupin
 
re :

Bon, je n'avais pas tout comprit !

Utiliser la valeur Activecell.Column pour vous déplacer.

Sub Deplacement()

Dim I, A, B As Integer

A = ActiveCell.Column
B = 5

For I = A To B
ActiveCell.Offset(0, 0).Value = "Test"
ActiveCell.Offset(0, 1).Select
Next I


End Sub

Lupin
0