Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copie en boucle

  • Initiateur de la discussion Initiateur de la discussion David590
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

David590

XLDnaute Occasionnel
Bonjour à tous,

Je cherche à copier une cellule et la cellule de destination change en fonction d'une heure
j'y arrive avec le code suivant mais j'aimerai simplifier en faisant une boucle car de cette façon le code est très très long

Code:
If Var >= "11:30" And Var < "11:35" Then
Range("AC1") = Range("AC1") + Feuil3.Range("E4")
ElseIf Var >= "11:35" And Var < "11:40" Then
Range("AC2") = Range("AC2") + Feuil3.Range("E4")
ElseIf Var >= "11:40" And Var < "11:45" Then
Range("AC3") = Range("AC3") + Feuil3.Range("E4")
....

merci d'avance
 
Re : copie en boucle

Bonjour staple, 🙂

Désolé je pensais que ce serait plus compréhensible avec juste mon code mais voila, j'ai fais un fichier exemple pour essayer d'expliquer ce que je souhaiterai

Merci 😀
 

Pièces jointes

Re : copie en boucle

Re

Tu veux absolument passer par une macro?
Parce qu'une formule peut suffire
A mettre en colonne I et recopier vers le bas
Code:
=SI(1-OU(G5>$A$1;H5<$A$1)=1;$B$1;"")

NB: Il y a juste un petit souci si en A1, la valeur est égale à une borne des colonnes de ou à
Idem avec la variante de la formule
Code:
=SI(1-OU(G5>=$A$1;H5<=$A$1)=1;$B$1;"")
 
Re : copie en boucle

Re

As-tu au moins essayé les formules proposées ?
Et en changeant les valeurs en A1 ou B pour voir ce qui se passe...

NB: Car une formule peut se traduire en VBA ...

PS: Pourquoi n'as-tu pas mis ta macro qui fonctionne dans ton fichier exemple ?
Cela aurait pu être utile, non ? 🙄
 
Dernière édition:
Re : copie en boucle

oui oui j'ai essayé les formules mais dès que A1 et B1 change, ça disparais

En ce qui concerne ma macro qui fonctionne, bizarrement elle ne fonctionne pas sur mon fichier exemple.
Apparemment c'est parce ce que l'heure en A1 est généré par une autre macro sur mon vrai fichier est cette heure resterai en format standard et pas en format heure

sinon ma macro que j'ai mis plus haut et qui fonctionne revient a dire :

Si A1 est compris entre 11:30 et 11:35 alors
I5 = I5 + B1
Sinon si A1 est compris entre 11:35 et 11:40 alors
I6 = I6 + B1
Sinon si A1 est compris entre 11:40 et 11:45 alors
I7 = I7 + B1
....

mais comment faire pour faire une genre de boucle et éviter de charger 400 lignes de code pour faire ca
 
Re : copie en boucle

Bonjour David590, Staple1600.


Bien que la demande ne soit pas très claire (s'agit-il de copier ou d'ajouter ?), un essai dans le classeur joint.​


Bonne nuit.


ℝOGER2327
#7304


Samedi 14 Palotin 141 (Saint Equivoque, sans-culotte - fête Suprême Quarte)
14 Floréal An CCXXII, 0,1560h - chamærops
2014-W18-6T00:22:28Z
 

Pièces jointes

Dernière édition:
Re : copie en boucle

Suite...


Aïe ! Je n'avais pas vu le message #9 au moment de rédiger ma proposition. J'ai l'impression que le problème posé n'est pas tout à fait (ou n'est pas du tout ?) le véritable problème à résoudre. Nous cacherait-on des choses ?​


ℝOGER2327
#7306


Samedi 14 Palotin 141 (Saint Equivoque, sans-culotte - fête Suprême Quarte)
14 Floréal An CCXXII, 0,4790h - chamærops
2014-W18-6T01:08:58Z
 
Re : copie en boucle

Bonjour Roger,

Non non je ne vous cache rien, c'est exactement ce qu'il me fallait, en "ajoutant"
Tu as fait en 5 lignes ce que je faisais en 500 😀
Je ne comprend même pas le code, je vais essayé de l'adapter dans mon classeur, car pour simplifier l'exemple j'ai fait tous sur la même feuille mais dans mon classeur la colonne I est dans un classeur différent

Merci beaucoup 😉
 
Re : copie en boucle

Re...


(...)
Non non je ne vous cache rien, c'est exactement ce qu'il me fallait, en "ajoutant"
(...)
Parfait, tout va bien​

Il y aura effectivement des adaptations à faire. Pour cela, comprendre un peu le code peut être utile. Vous trouverez dans le classeur joint le code initial légèrement modifié et plusieurs variantes qui montrent ce qu'on peut en faire.​


Bonne continuation.


ℝOGER2327
#7309


Dimanche 15 Palotin 141 (Adoration du Pal - fête Suprême Tierce)
15 Floréal An CCXXII, 0,4983h - ver-à-soie
2014-W18-7T01:11:45Z
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
872
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…