Discussion :

[cel1205]

Bonjour , aprés avoir chercher sur internet et n'y arrivant pas je me tourne vers vous.

Pour comprendre mon problème, je vous transmet le fichier qui se nomme KPI1

Le fichier regroupe un ensemble de compétence que les personnes doivent avoir.
Si la personne est de béthune, elle ira donc dans l'onglet béthune, et devra remplir les cases vertes par un 1 si la compétence est réalisée, et rien si elle ne l'est pas. Je souhaiterais qu'une fois que la personne a rempli les cases, qu'elle clique sur enregistrement et que toutes les données se retrouve dans historique Béthune.

J'ai essayé quelques trucs à partir d'un fichier que j'ai trouvé sur internet, mais je n'arrive pas à reproduire la même chose. Je le mets en pièce jointe aussi il se nomme A.

Quelqu'un pourrait -il m'aider? :

Merci

[JPierreM]

Bonsoir,

Un début de réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub sc()
Set laFeuille1 = Sheets(ActiveSheet.Name)
Set laFeuille2 = Sheets("Historique " & ActiveSheet.Name)
 
    With laFeuille2
    j = 1
        For i = 4 To 24
            .Cells(i, 2) = laFeuille1.Cells(i + 2 + j, 2)
            laFeuille1.Cells(i + 2 + j, 2).ClearContents
            j = j + 1
        Next i
    End With
 
End Sub

Dans votre classeur l'onglet "Historique Béthune" a 2 espces alors que dans votre code il n'y en a qu'un. Le mieux est d'éviter les espaces ou d'utiliser le trait bas "Historique_Béthune"

C'est perfectible mais il faut commencer par vos feuilles. On peut saisir ce que l'on veut dans les cellules vertes ce qui faussera le résultat. Pourquoi ne pas verrouiller les cellules autres que les vertes

[cel1205]

merci JPierre!
je suis parvenu à mes fins