Macro vba

Barahaoua Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   -  
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   -
onjour svp j'ai besoin de votre aide

je veux une macro qui va chercher la valeur de B1 et me la met dans D3
ensuite E3reçois D3 et D4 reçois B1
et F3 ensuite reçois E3 et D4 reçois B1
donc a chaque déplacement d'une case D3 reçois B1

idem pour la ligne 4
J'ai la cellule B5 qui reçois une boucle et a chaque seconde elle change de valeur et moi je veux que la ligne 4 se rempli de la même façon que la ligne 3
A voir également:

2 réponses

Réponse 1 / 2
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Salut,

Tu as fais quoi pour l'instant que je te corrige?
0
Barahaoua Messages postés 88 Date d'inscription   Statut Membre Dernière intervention  
 
Est ce que je peux t'envoyer stp mon fichier et je t'explique ce que je veux faire dans cette partis parce que pour l'instant j'ai fais cette partis qui remplis la ligne 3 mais ce que j'ai fais n'est pas juste ?
0
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Je suis désolé mais je ne te ferai pas ta macro, je peux t'aider si tu rencontre des problème, t'aider à corriger tes erreur mais je ne ferai pas ton travail désolé.
0
Barahaoua Messages postés 88 Date d'inscription   Statut Membre Dernière intervention  
 
https://www.cjoint.com/c/FFnpclNIt0h Pierre1310 voila mon fichier
pour l'instant voila le code que j'ai fais pour remplir la ligne 7 mais c'est pas ca ce que je veux je voudrai faire comme j'ai expliquer au début et pour le remplissage de la ligne 8 pour l'instant j'ai rien fais.

merci 

  i = 15 'valEUr de Ma première colonne du tableau
            Application.Wait Time + TimeSerial(0, 0, 2) 'attends 10 sec
         
            Do Until Range("T7") <> "" Or Arret = True 'conditionne la boucle jusqu'à la dernière colonne de ton tableau
                
             
                If i > 15 Then Cells(7, i - 1).Value = Range("B1") 'mettre la valeur de B1 dans les cellule precedente
                Cells(7, i).Value = Range("B1").Value 'mets ta valeurs dans la cellule de ton tableau
             Range("B5").Value = Range("C13").Offset(Nb_Boucle, 0).Value
             Nb_Boucle = Nb_Boucle + 1
                i = i + 1 'prochaine colonne
0
Réponse 2 / 2
Barahaoua Messages postés 88 Date d'inscription   Statut Membre Dernière intervention  
 
ok c'est pas grave si non j'ai cette erreu qui s'affiche dans ma macro est ce que tu pourra me dire qu'est ce que il faut modifier



merci
0
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Tun1 et Tun2 sont des tableaux?
Si oui, ce n'est pas comme ça qu'on les remplits.
https://silkyroad.developpez.com/vba/tableaux/
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Arrêt d'exécution d'un code vba
amiro2017 -
amiro2017 -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses