Problème fonctionnement code

Fermé
Thibault - Modifié le 17 déc. 2020 à 12:21
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 - 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

2 réponses

f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 1 678
Modifié le 18 déc. 2020 à 08:29
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
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
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 1 678
Modifié le 18 déc. 2020 à 11:39
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
Thibault > f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023
18 déc. 2020 à 14:30
Mais du coup je ne comprends pas pourquoi je n'arrive pas à reproduire ce schéma avec des InputBox...
0
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 1 678 > Thibault
Modifié le 18 déc. 2020 à 17:24
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
Thibault > f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023
19 déc. 2020 à 00:02
Merci beaucoup pour le temps que vous me consacrez !
0
f894009 Messages postés 16904 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 18 mars 2023 1 678 > Thibault
Modifié le 19 déc. 2020 à 07:57
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