Problème fonctionnement code

Thibault -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention - 21 déc. 2020 à 07:31

Bonjour,

J'ai crée un autre post suite à un souci que je pensais dans un if, sauf que le problème ne semble pas venir de là mais plus dans l'organisation de mon code.

Voici un lien vers un fichier pour tester : https://www.cjoint.com/c/JLqwXRtZJ1W

Pour le tester il suffit de renseigner : Feuil1 puis Feuil2.

Le résultat souhaité serait d'avoir la même concordance dans le Feuil1post et Feuil2post

Sur quoi je bloque totalement depuis plusieurs jours....

Merci d'avance pour votre aide.

Configuration: Windows / Chrome 87.0.4280.88

Afficher la suite

2 réponses

Réponse 1 / 2
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Bonjour,

Pour moi votre soucis vient du fait que vous ne trouvez pas une cellule non vide apres la derniere ligne du tableau colonne B

A voir si ok, je mets par programme un 0 en cellule B fin de tableau ligne +1 colonne A
Vu vos calculs que je n'ai pas decortiques, a vous de verifier si la modif que je propose modifie ou non votre logique

https://mon-partage.fr/f/WMGd5ioJ/
0
Réponse 2 / 2
Thibault

Bonjour et merci pour votre réponse.

Malheureusement ce n'est pas ce que je recherchais, je vous ai envoyé un autre fichier qui lui fonctionnait parfaitement mais de manière automatique, c'est à dire qu'il n'y avait aucun "InputBox" juste une mise à jour en tant réel (le code est très similaire la seule différence est que les feuilles 3 et 4 appellent la Sub principale et qu'il n'y a pas de demande de Feuil)

https://www.cjoint.com/c/JLsiPRrOqXW
0
1. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  Re,
  
  la seule différence est que les feuilles 3 et 4 appellent la Sub
  
  Ben non, dans le premier fichier mis a dispo, vous creez les feuilles et vous n'executez le code qu'une seule fois contrairement a votre deuxieme fichier ou le code s'execute a chaque fois que vous activez vos feuilles 3 ou4
  Donc une fois les feuilles creer, il faut que le code s'execute en prenant les feuilles l'une apres l'autre d'ou votre code
  With ActiveSheet Range("A2:Z" & Rows.Count).ClearContents Range("A2:Z" & Rows.Count).Interior.Pattern = xlNone If ActiveSheet.Name = "Feuil3" Then Feuille_X = "Feuil1" Feuille_Y = "Feuil2" Else Feuille_X = "Feuil2" Feuille_Y = "Feuil1"
  End If
  qui permet le calcul fonction de la feuille
  
  0
2. Thibault > f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention
  
  Mais du coup je ne comprends pas pourquoi je n'arrive pas à reproduire ce schéma avec des InputBox...
  
  0
3. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > Thibault
  
  Re,
  
  Une fois que vous avez vos fichiers post, il faut faire une boucle pour que votre code prenne en compte chaque feuille 1 et 2
  pour vos calculs.
  Je regarde la chose
  
  0
4. Thibault > f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention
  
  Merci beaucoup pour le temps que vous me consacrez !
  
  0
5. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > Thibault
  
  Bonjour,
  
  Traitement fichier 1et 2 l'un apres l'autre. Touche ctrl+shift+T pour lancer le code
  J'ai laisse les lignes inpout en commentaire, les feuil3 et 4 pour comparaison
  Si les feuilles post existent avant traitement: elles sont supprimees.
  Serait peut-etre interessant de creer les feuilles post au premier lancement du code et simplement effacer le contenu aux autres lancements
  
  https://mon-partage.fr/f/MH7m0Egg/
  
  0

Problème fonctionnement code

2 réponses

Discussions similaires

Newsletters