Modification de code VBA

[RJK54]

Bonjour tout le monde !

J'ai ici deux fichiers : suivi des absences vertical et suivi des absences horizontal. Ce dernier est finalisé et marche correctement. Cependant, un manque de colonnes horizontales m'a obligé à le construire verticalement : d'où le fichier "suivi des absences vertical".

Mon problème est que je ne suis pas douée dans le code et j'aurais besoin de modifier le code du "suivi des absences horizontal" que j'ai déjà intégré dans le vertical afin que mon suivi des absences fonctionne verticalement. (Avec report dans les mois correspondants..)

N'ayant pas compris le code horizontal était construit, je ne peux malheureusement pas l'adapté au suivi vertical...

Voilà pourquoi j'aurais besoin de votre aide...

Merci pour tout et bonne fin de journée

 

[Staple1600]

Re : Modification de code VBA

Bonjour


Il me semble avoir déjà vu ce code sur ce forum
(sauf erreur de ma part)

Pourquoi ne contactes-tu pas l'auteur?

 

[RJK54]

Re : Modification de code VBA

Salut!
Merci pour ton conseil! Disons que je m'adresse à toutes les personnes pouvant m'aider ou me mettre sur la piste...Catrice et Samantha mon déjà beaucoup aidée... je ne veux pas absuer de leur temps...

Bonne journée

 

[Staple1600]

Re : Modification de code VBA

Re

L'un (prévébir l'auteur) n'empeche pas l'autre (que d'autres forumeurs t'aident)

N'ayant pas compris le code horizontal était construit

Qu'est ce que tu n'a pas compris dans le code?

Moi dans ce cas je me mets des commentaires dans le code
pour comprende ce que fait la ligne de code

Tu pourrais peut-etre en faire de meme
en nous indiquant les lignes que tu ne comprends pas

Sub Accident()
ColDeb = 3 'Debut de la colonne ici 3
ColFin = 50' fin de la colonne ici 50
Set MaPlage1 = Range("Accident")' definition d'un plage de cellule
Set MaPlage2 = Range(Cells(ActiveCell.Row, MaPlage1.Column), Cells(ActiveCell.Row, MaPlage1.Column + MaPlage1.Columns.Count - 1))
MaPlage2.Resize(1, MaPlage2.Columns.Count + 1).ClearContents
For Each X In Range(Cells(ActiveCell.Row, ColDeb), Cells(ActiveCell.Row, ColFin))
If X.Column Mod 2 = 0 Then

 

[RJK54]

Re : Modification de code VBA

Ben j'adapterais ce code au suivi vertical de la manière suivante:

Sub Accident()
ColDeb = 3 'Debut de la colonne ici 3 (ligne 5)
ColFin = 50' fin de la colonne ici 50 (ligne 49)
Set MaPlage1 = Range("Accident")' definition d'un plage de cellule (F6 à GP6)
Set MaPlage2 = Range(Cells(ActiveCell.Row, MaPlage1.Column), Cells(ActiveCell.Row, MaPlage1.Column + MaPlage1.Columns.Count - 1))
MaPlage2.Resize(1, MaPlage2.Columns.Count + 1).ClearContents
For Each X In Range(Cells(ActiveCell.Row, ColDeb), Cells(ActiveCell.Row, ColFin))
If X.Column Mod 2 = 0 Then

Mais je ne comprends par comme lui dire de reporter ces données de janvier dans le tableau "accident janvier" en bas. Je ne sais pas non plus comment définir Ma palge 1...

Meric pour ton aide

 

[RJK54]

Re : Modification de code VBA

Bonjour à tous!

Si une donnée(s) n'est pas claire, merci de m'en informer...

Je compte sur votre aide, merci beaucoup!