Copier valeur dans un tableau

Résolu/Fermé
Renard - 3 juin 2021 à 23:13
yg_be Messages postés 22728 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 4 juin 2021 à 17:03
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,
A voir également:

1 réponse

yg_be Messages postés 22728 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 476
4 juin 2021 à 10:01
bonjour,
peut-être peux-tu donner quelques exemples?
0
Renard_rouge Messages postés 3 Date d'inscription vendredi 4 juin 2021 Statut Membre Dernière intervention 4 juin 2021
4 juin 2021 à 14:35
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
yg_be Messages postés 22728 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 476 > Renard_rouge Messages postés 3 Date d'inscription vendredi 4 juin 2021 Statut Membre Dernière intervention 4 juin 2021
4 juin 2021 à 14:52
c'est tout à coup plus clair.
0
yg_be Messages postés 22728 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 476 > yg_be Messages postés 22728 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024
4 juin 2021 à 14:52
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
Renard_rouge Messages postés 3 Date d'inscription vendredi 4 juin 2021 Statut Membre Dernière intervention 4 juin 2021 > yg_be Messages postés 22728 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024
4 juin 2021 à 15:01
Merci infiniment je vais essayé ceci ;)
0
Renard_rouge Messages postés 3 Date d'inscription vendredi 4 juin 2021 Statut Membre Dernière intervention 4 juin 2021 > Renard_rouge Messages postés 3 Date d'inscription vendredi 4 juin 2021 Statut Membre Dernière intervention 4 juin 2021
4 juin 2021 à 15:31
C'est tout bon ça fonctionne merci beaucoup
0