Problème fonctionnement code
Thibault
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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.
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
A voir également:
- Problème fonctionnement code
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
2 réponses
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/
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/
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
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
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
qui permet le calcul fonction de la feuille
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
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/
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/
