Discussion :

[elsabio]

Bonsoir à tous,
Etant néophyte dans le monde du VBA, je requiert votre aide
Sous excel, j'ai créer 12 feuilles, qui représentent les 12 mois de l'année.
Dans chaque feuille, je note mon planning jour par jour. J'ai créer aussi une treizième feuille qui regroupe tous mes jours de congés et autres.....
Via diverses tutos trouvés sur le net, j'arrive à transférer mes jours, tapé dans la feuille janvier, dans la 13eme feuille, avec une macro.

Avec un module:

Code :

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

1
2
3
4
5
6
7
8
9
Public arr
 
Sub ajouter_une_ligne()
Dim ligne As Long
Sheets(13).Activate
ligne = Columns(1).Find("", [A1], , , xlByRows).Row
Range(Cells(ligne, 1), Cells(ligne, 3)) = arr
Sheets(1).Activate
End Sub

et dans le feuile 1 (janvier):

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Intersect(Target, Range("C2")) Is Nothing Then: End
If Application.CountA(Range("A2:C2")) < 3 Then: End
arr = Range("A2:C2").Value
ajouter_une_ligne
Range("A2:C2").ClearContents
Range("A2").Select
End Sub

Jusqu'à là tout va bien.

Le soucis est que je voudrais faire la même chose pour les autres feuilles (mois). Que dans chaque mois, les jours saisis aillent dans la feuille 12 avec la macro. Mais je me heurte à un mur.

Désolé pour le roman, mais y aurait-il quelqu'un qui pourrait m'aider svp?

Merci par avance

[casefayere]

Bonsoir,
je pense que tu devrais mettre ton code dans "ThisWorkbook"

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'si tes feuilles avec les mois sont de sheets(1) à sheets(12)
If ActiveSheet.CodeName <= "Feuil12" Then
  If Intersect(Target, Range("C2")) Is Nothing Then: End
  If Application.CountA(Range("A2:C2")) < 3 Then: End
  arr = Range("A2:C2").Value
  ajouter_une_ligne
  Range("A2:C2").ClearContents
End If
End Sub

[elsabio]

bonjour casefayere,

Merci pour ton code
je viens de le tester, mais malheureusement, les données que je rentre en a2,b2 et c2 ne sont pas transférées dans la feuille 13.
j'ai refais un classeur, mais avec 3 feuilles, et toujours rien......
mes feuilles sont nommées Feuil1, Feuil2 et Feuil3.

Dois je rentrer ton code dans chaque feuille, du moins les feuilles 1 et 2?

[casefayere]

Bonjour,

mes feuilles sont nommées Feuil1, Feuil2 et Feuil3.

je ne parle pas de leur nom "Name" mais de leur "CodeName"
Je m'explique, quand tu ouvres l'éditeur VBA, dans la fenêtre de gauche apparait l'image ci-dessous => Feuil1(Feuil1) ou dans ton cas peut-être Feuil1(janvier), entre parenthèses, c'est le "Name", avant c'est le "CodeName"
Feuil1 = CodeName, janvier = Name, c'est ce que je te demandais de vérifier

'si tes feuilles avec les mois sont de sheets(1) à sheets(12)

j'aurais pu dire

'si tes feuilles avec les mois sont de Feuil1 à Feuil12

Par contre, je n'ai pas vérifié ton code et l'ai laissé tel quel, si tu me donnes ton but, je le corrigerai.

onne journée