Macro vba

Barahaoua Messages postés 89 Date d'inscription   Statut Membre Dernière intervention   -  
Pierre1310 Messages postés 8854 Statut Membre -
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

2 réponses

  1.
    Pierre1310 Messages postés 8854 Statut Membre 652
     
    Salut,

    Tu as fais quoi pour l'instant que je te corrige?
    0
    1. Barahaoua Messages postés 89 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
    2. Pierre1310 Messages postés 8854 Statut Membre 652
       
      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
    3. Barahaoua Messages postés 89 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
  2. Barahaoua Messages postés 89 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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

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

7 réponses
erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

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

2 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse