Tableau en ligne et reporter 2 valeurs dans 2 cellules

klorane

XLDnaute Occasionnel
Bonsoir ou bonjour à tous,

voilà j'ai un tableau (voir fichier joint) qui travaille en ligne.
Dans chaque ligne j'ai plusieurs valeurs maxi et mini qui vont de paire.

Il faudrait que chaque valeur maxi et mini soient affichées ensemble en cellule G21 pour le maxi et I21 pour le mini et que lorsqu'elle a été affichée que l'on passe aux autres valeurs Maxi et Mini et qui lorsque l'on arrive à la fin de la ligne1 on passe à la ligne2 pour faire de meme etc... jusqu'à la fin.

Pour essayer d'etre plus clair voilà un exemple rataché au tableau joint:
lorsque l'on clique sur le bouton AFFICHER:
>12(situé en B2) vient s'incrire en G21 et 5(situé en C2) vient s'inscrire en I21
>24(situé en D2) vient s'incrire ensuite en G21 et 6(situé en E2) vient s'inscrire en I21
>etc jusqu'à la fin de la ligne.Arrivé à la fin de la ligne1 on redemarre au début de la ligne 2 etc....


Nota: La macro devra s'executer en un seul trait.Il n'est donc pas necessaire de recliquer a chaque fois sur le bouton pour faire afficher les valeurs.Je me chargerai de la modifier par la suite car vu comme ça il n'y a aucun interet a faire defiler des valeurs à vitesse rapide :) .

Merci à celui qui va me pondre ça car j'ai essayé et j'y arrive pas!

Laurent
 

Pièces jointes

  • tablmaxmin.xls
    16.5 KB · Affichages: 74

bqtr

XLDnaute Accro
Re : Tableau en ligne et reporter 2 valeurs dans 2 cellules

Bonjour Klorane,

Regarde si cela te convient :

Code:
Sub MaxMin()
Dim derl As Long
Dim i As Integer, j As Integer, L As Integer
derl = Range("B65536").End(xlUp).Row
L = 3
For i = 2 To derl
  For j = 2 To Range("IV1").End(xlToLeft).Column - 1 Step 2
      MsgBox Range("IV1").End(xlToLeft).Column
      Range("G21").Value = Cells(i, j)
      Range("I21").Value = Cells(i, L)
      L = L + 2
      If L > 17 Then L = 3
      If Cells(i, j) = "" Then Exit Sub
  Next j
Next i
End Sub

La ligne : MsgBox Range("IV1").End(xlToLeft).Column est là pour te permettre de voir les cellules G21 et I21, tu la supprimes aprés les tests.
Attention il ne faut pas de cellules vides dans le tableau sinon la macro s'arrête. (If Cells(i, j) = "" Then Exit Sub)

Bonne journée
 

Discussions similaires

Statistiques des forums

Discussions
311 723
Messages
2 081 934
Membres
101 844
dernier inscrit
pktla