remplissage de cellule sous condition en vba

bonjour

j'ai construit un questionnaire avec plusieurs thème sur la base de ma feuille grille audit

sur chaque thème "useform" j'ai mis en place des checkbox et une légende pour info

ensuite la table est la suivante et je n'y arrive pas

lorsque j'ai c rien a remplir sauf la X dans la grille et les commentaires "c est ok"

lorsque j'ai PS je remplis la grille avec la x et je dois remplir mon rapport audit avec la réponse négative correspondante de la colonne O "grille audit " en incrémentant des lignes commencent ligne 43 .


lorsque j'ai NC je remplis la grille avec la x " sa c est bon " je doit remplir mon rapport audit avec la réponse négative correspondante de la colonne O "grille audit " en incrémentant des lignes commencent ligne 54 et ma feuille plan d'action toujours avec la réponse négative en colonne o "grille audit" en commencent par la ligne 20 et dans ma feuille Tsa a partir de la ligne 8 "description de l'action".

lorsque j'ai OA je remplis la grille avec la x "c 'est OK"je dois remplis mon rapport audit avec la réponse négative correspondante de la colonne O "grille audit " en incrémentant des lignes commencent ligne 32.

lorsque j'ai PF je remplis la grille avec la x "sa c'est OK je dois remplir mon rapport audit avec la réponse correspondante de la colonne C "grille audit " en incrémentant des lignes commencent ligne 21.

lorsque j'ai NA rien a remplir sauf la X dans la grille et les commentaires c'est OK

j'ai fais un bout du programme mais cela me mets les élément en ligne 70 du rapport d'audit je voudrait que cela rentre dans sont emplacement

Code:

---

1 2 3 4 5

'mettre les donnees de la grille d'audit dans le rapport d'audit With Worksheets("Rapport d'audit") If CheckBox2 = True Then [F14] = "x" If CheckBox5 = True Then [J14] = "x" Worksheets("Grille d'audit").Range("O14").Copy .Cells(.Rows.Count, "B").End(xlUp)(2)

---

je vous joint mon fichiers

merci de votre aide
cordialement

Pour ce qui est du code, ceci devrait fonctionner:

Code:

---

1 2 3 4 5

Dim lastRow As Long With Worksheets("Rapport d'audit") lastRow = Range("B" & Rows.Count).End(xlUp).Row '--- No de la dernière ligne Worksheets("Grille d'audit").Range("O14").Copy .Cells(lastRow, 2) End With

---

Maintenant, pour moi, il y a un peu trop de questions à la fois. Je proposerais donc de commencer par celle-ci:

Lorsque j'ai NC je remplis la grille avec la x " sa c est bon " je doit remplir mon rapport audit avec la réponse négative correspondante de la colonne O "grille audit " en incrémentant des lignes commencent ligne 54 et ma feuille plan d'action toujours avec la réponse négative en colonne o "grille audit" en commencent par la ligne 20 et dans ma feuille Tsa a partir de la ligne 8 "description de l'action".

que je comprends ainsi:

si la case NC a été cochée, alors:
(1) dans la feuille "Grille Audit", il faut mettre x dans la cellule [O54];
(2) dans la feuille "Rapport d'audit", il faut mettre dans la première cellule vide en-dessous [B53] le texte mentionné dans le champ Commentaire du formulaire;
(3) dans la feuille "Plan d'actions", il faut mettre dans la première cellule vide en-dessous [B19] le texte mentionné dans le champ Commentaire du formulaire;
(4) dans la feuille "TSA", il faut mettre dans la première cellule vide en-dessous [K7] le texte mentionné dans le champ Commentaire du formulaire.

C'est bien cela ?

non pas du tout cela

prenons le thème stratégie

dans les questions poser soit la première exemple

1 case cocher celle ci apparait dans le grille audit cela sa marche
2 a cela dans le rapport d'audit je veux que la phrase négative qui se trouve en o14 de ma grille d'audit aille ce copie dans le rapport a partir de la ligne 54 et qu cela incremante automatique pour tout mes thème quand biensur NC est sélectionné
3 la même réponse négative dans la feuille plan d'action en incremantant a chaque fois pour tout mes thèmes
4la même réponse négative dans la feuille tsa dans le champ 'description de l'action' en incrémentant chaque ligne


merci de me porte secours
actuellement j ai fais quelque chose pour le theme "userformstra" mais pour seulement le rapport d'audit mais cela incrémentant pas les lignes
je vous joins mon fichier