Copier valeur dans un tableau

Résolu
Renard -  
yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai essayé d'apprendre le langage VBA mais je suis vraiment nul et je n'arrive pas à faire une petite macro qui je suis sur ne pose aucun problème à un quelqu'un qui s'y connait un minimum.

Voici le topo, j'ai une case à remplir dont la valeur va de 1 à 2187 et dont chaque valeur correspond à un résultat qui est généré.

J'aimerais simplement créer une macro qui entrerait dans la première case toutes les valeurs de 1 à 2187 et qui enregistrerait la valeur correspondante dans un tableau.

J'espère m'être fait comprendre !

Bien cordialement,

1 réponse

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour,
    peut-être peux-tu donner quelques exemples?
    0
    1. Renard_rouge Messages postés 3 Statut Membre
       
      Bonjour,

      Merci oui bien sur je met un screenshot.



      Alors voilà lorsque j'inscris un numéro de cas dans la case D4 cela me génère un chiffre dans la case H5, il me faudrait une macro permettant de rentrer les cas dans la case D4 (du cas 1 jusqu'au cas 2187) puis qui copie-colle le résultat généré dans le tableau à droite pour chaque cas.

      J'espère que c'est plus clair.

      Bien cordialement,
      0
    2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > Renard_rouge Messages postés 3 Statut Membre
       
      c'est tout à coup plus clair.
      0
    3. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
       
      un exemple: 
      Sub renard()
' d4 h5 o4
Dim cl As Range
Set cl = [o4]
Do While cl <> ""
    [d4] = cl
    cl.Offset(, 1) = [h5]
    Set cl = cl.Offset(1)
Loop
End Sub
      0
    4. Renard_rouge Messages postés 3 Statut Membre > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
       
      Merci infiniment je vais essayé ceci ;)
      0
    5. Renard_rouge Messages postés 3 Statut Membre > Renard_rouge Messages postés 3 Statut Membre
       
      C'est tout bon ça fonctionne merci beaucoup
      0