Crée nouvelle feuille sous condition

[Chasse]

Bonjour le Forum

J’ai mis plusieurs case à cocher (colonne H3:L32) sur une feuille de calcul
Je dois sélectionner plusieurs lignes non contiguës entre (8 et 15) et quand je lance la macro j’aimerais en :
1er
qu’elle vérifie la présence d’une feuille dont le nom se trouve dans la (colonne D2😀32) de la 1er ligne cochée. Si il ni en n’as pas, de lancer : Sub Nouveau_Client()

2ième
Affiche :InputBox("Date de validité:", "Paye", Date) Pour saisir la date voulue et qui devra se coller dans les feuilles correspondantes « Range("A65536").End(xlUp).Offset(1, 0) »

3ième
de copier la ligne dans leur feuille correspondante

Je joins un fichier, qui j’espère vous aideras à comprendre ce que j’aimerais.

Je sais j' en demande beaucoup mais si vous pourriez m’aide pour la 1ere partie de mes questions
J’aurais fait déjà un grand pas

D’avance merci et bonne fin de Week-end

 

[Grand Chaman Excel]

Re : Crée nouvelle feuille sous condition

Bonjour Chasse,

Voici un début de solution... Malheureusement, je dois partir pour le reste de l'après-midi... La suite ce soir peut-être.

Au lieu des cases à cocher, j'ai remplacé par des "X" qui apparaissent ou d'enlèvent quand on double clique dans les cellules de la colonne K. Le code est dans le Feuil1

J'ai aussi fait un début de code qui boucle sur les "X" et ajoute un nouvelle feuille si pas déjà existante.

En espérant que ça t'aidera un peu...

A+

Edit : J'ai ajouté le inputbox et la copie des infos. Reste à peaufiner un peu...

 

[Chasse]

Re : Crée nouvelle feuille sous condition

Bonsoir Grand Chaman Excel
Merci pour ta réponse, une formalité pour Grand Chaman mais un grand pour moi.
Seulement il n’y a qu’une feuille que se crée, cela ne prend en considération que la 1ère ligne ou est insérer la X

Ce que tu ma fourni amène de l’eau à mon moulin.
Mais si tu a encore un peu de temps à me consacrer je t’en remercie

Merci et bonne soirée

 

[Chasse]

Re : Crée nouvelle feuille sous condition

Re Bonsoir Grand Chaman Excel
Pas vu ton Edit :

J'ai ajouté le inputbox et la copie des infos. Reste à peaufiner un peu...

il y a qu'une feuille qui se crée et tout le info se copie dans cette feuille

il faudrai je crois une fois la ligne copiée la suprimer et ôter la croix avant de continuer

Merci A+

 

[Grand Chaman Excel]

Re : Crée nouvelle feuille sous condition

Bonjour,

Désolé, j'avais manqué de temps pour tester à fond.
Ajoute une ligne avec Next c et ça devrait être ok.

    Set ws2 = Nothing       '****
Next c

A+

 

[Chasse]

Re : Crée nouvelle feuille sous condition

Salut Grand Chaman Excel

Ton code fonctionne bien, je l’ai adapté sur le fichier original.
J’ai pour l’instant juste déplacé le code inputbox

sDate = InputBox("Date de validité : ", "Pays", Date)

pour le mettre au début, pour qu’il ne s’affiche qu’un fois.

Ses prochain jours je vais essayer d’ y apporter quelques modifications mais suis à la bourre.

Si je suis bloqué, se qui ne m’étonnerais pas, je ne manquerais pas de m’adresser au forum et peut être que Grand Chaman sera à l’écoute

Je te remercie pour ton aide et salutation au Québec