Bonjour,
Voici bien longtemps que je n'ai mis les pieds sur ce forum qui m'a énormément apporté à mes débuts.
Voila, j'ai un petit fichier pour la gestion des compétences acquises pour mes stagiaires.
J'ai des items qui sont regroupés par ce qu'on pourrait appelé un titre. Ex pour World
Mise en page :
Modifier l'orientation du document
Modifier les marges
Tableau :
Insérer/supprimer un tableau
Insérer une ligne ou colonne
Ces données se trouvent dans la colonne A
Je coche des cases d'option qui me renvoie une valeur dans la colonne D (1, si c'est acquis et 2 si c'est partiellement acquis.
J'ai ensuite associé un bouton de commande pour récupérer tous les items acquis.
Le problème, c'est que je n'arrive pas à récupérer l'espèce de titre (en couleur dans mon exemple), ou lorsque j'essaie, il revient plusieurs fois car je boucle sur plusieurs cellules et si l'une d'elle contient 1, il me renvoie l'espèce de titre. Je ne sais pas si je suis bien clair ? Je peux envoyer mon fichier, si quelqu'un a envie d'y jeter un coup d'oeil.
Sinon, voici, le code que j'ai commencé.
Merci d'avance et bon week end
Voici bien longtemps que je n'ai mis les pieds sur ce forum qui m'a énormément apporté à mes débuts.
Voila, j'ai un petit fichier pour la gestion des compétences acquises pour mes stagiaires.
J'ai des items qui sont regroupés par ce qu'on pourrait appelé un titre. Ex pour World
Mise en page :
Modifier l'orientation du document
Modifier les marges
Tableau :
Insérer/supprimer un tableau
Insérer une ligne ou colonne
Ces données se trouvent dans la colonne A
Je coche des cases d'option qui me renvoie une valeur dans la colonne D (1, si c'est acquis et 2 si c'est partiellement acquis.
J'ai ensuite associé un bouton de commande pour récupérer tous les items acquis.
Le problème, c'est que je n'arrive pas à récupérer l'espèce de titre (en couleur dans mon exemple), ou lorsque j'essaie, il revient plusieurs fois car je boucle sur plusieurs cellules et si l'une d'elle contient 1, il me renvoie l'espèce de titre. Je ne sais pas si je suis bien clair ? Je peux envoyer mon fichier, si quelqu'un a envie d'y jeter un coup d'oeil.
Sinon, voici, le code que j'ai commencé.
Code:
Dim x As Integer
For x = 8 To 66
Select Case Range("D" & x)
Case Is = 1
If x = 10 Or x = 11 Then
Range("A150").End(xlUp).Offset(1, 0) = Range("A9")
Range("A150").End(xlUp).Offset(1, 0) = Range("D" & x).Offset(0, -3)
ElseIf x = 13 Or x = 14 Then
Range("A150").End(xlUp).Offset(1, 0) = Range("A12")
Range("A150").End(xlUp).Offset(1, 0) = Range("D" & x).Offset(0, -3)
ElseIf x = 35 Or x = 36 Then
Range("A150").End(xlUp).Offset(1, 0) = Range("A34")
Range("A150").End(xlUp).Offset(1, 0) = Range("D" & x).Offset(0, -3)
Else
Range("A150").End(xlUp).Offset(1, 0) = Range("D" & x).Offset(0, -3)
End If
Merci d'avance et bon week end