Discussion :

[NadStin]

Bonjour,

Je souhaite faire une boucle pour coller un sélection sur plusieurs feuilles :

Feuilles :
TEST
SEM 1
SEM 2
SEM 3
SEM 4
SEM 5
RECAP

A savoir que les feuilles SEM 1, SEM 2 ... peuvent aussi s'appeler selon le mois :
SEM 5
SEM 6
SEM 7
SEM 8
SEM 9

Donc je copie une sélection de la SEM 1 qui est la feuille active et je souhaite la copier dans les autres semaines (soit tous les onglet sauf ONGLET TEST ET ONGLET RECAP)

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 ActiveCell.Copy
 
For Each ws In Worksheets
 
If ws.Name > "SEM 1" Or ws.Name < "SEM 52" Then
ws.Range("a999").End(xlUp).Offset(5, 0).PasteSpecial xlPasteAll
 
End If
 
Next ws

[riaolle]

Bonjour,
ws.Name renvoie le nom de la feuille, donc une chaine de caractères.
Tu ne peux pas comparer des chaines de caractères avec < ou >. Que veut dire chaine1 > chaine2?

tous les onglet sauf ONGLET TEST ET ONGLET RECAP

Alors utilise cette condition :

Code :

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

1
2
3
If ws.Name <> "TEST" And ws.Name <> "RECAP" Then
 ...
End If

[unparia]

Bonjour riaolle

Bien sur qu oui : on peut comparer deux chaînes par < ou >.

Code :

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

msgbox "chaine 2" > "chaine 1"

retournera par exemple true (ou vrai)
il serait alors par contre prudent de les nommer "chaine 01" et ""chaine 02" (pour éviter d'arriver à "chaine 12" qui serait < "chaine 2"

Ceci étant dit : la solution que tu proposes est plus adroite dans le cas présenté.
Amitiés

[halaster08]

Bonjour,

Tu ne peux pas comparer des chaines de caractères avec < ou >. Que veut dire chaine1 > chaine2?

Si on peut, il compare alors caractère par caractère la valeur du code ASCII

edit: trop lent ...

[NadStin]

J'ai donc modifié : (l'onglet test s'appelle maintenant HORAIRE DE BASE)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 ActiveCell.Copy
 
For Each ws In Worksheets
 
If ws.Name <> "HORAIRE DE BASE" Or ws.Name <> "RECAP" Then
 
ws.Range("a999").End(xlUp).Offset(5, 0).PasteSpecial xlPasteAll
 
End If
 
Next ws

Mais la boucle ne se fait pas

[halaster08]

Mais la boucle ne se fait pas

Essaye le code ci dessous.
Puis va voir le résultat du debug.print (ctrl+G) pour voir si la boucle se fait bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim ws as worksheet
 ActiveCell.Copy
 
For Each ws In thisworkbook.Worksheets
debug.print ws.name
If ws.Name <> "HORAIRE DE BASE" Or ws.Name <> "RECAP" Then
 
ws.Range("a999").End(xlUp).Offset(5, 0).PasteSpecial xlPasteAll
 
End If
 
Next ws

[riaolle]

OK, désolée pour mon erreur... j'ai appris quelque chose
Attention, tu mets Or, il faut mettre And, car pour l'onglet "RECAP", par exemple, le nom est bien différent de HORAIRE DE BASE, donc la contidion est vérifiée.

Mais la boucle ne se fait pas

Pourrais-tu être un peu plus précis? Le code tourne, mais rien ne se passe?
Peux-tu nous donner ce qu'il y a autour du bout de code que tu nous donnes pour voir s'il y a pas une erreur en amont.

[NadStin]

ok, j'ai modifié "or" en "and" mais toujours rien,
le reste de la macro tourne et tout se passe comme prévu mais pour ce bout de code, rien ne se passe...

voici le code en entier

et ce que cela doit faire :
lors d'un double clic, il a a un tableau qui se colle dans la feuille active et ce dernier est complété avec les éléments des input box, ensuite (normalement) ce même tableau doit se coller sur les autres onglet (d'ou la boucle...)

merci...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
Dim ws As Worksheet
 
If MsgBox("Souhaitez vous ajouter une personne ?", vbYesNo) = vbYes Then
 
  Range("a999").End(xlUp).Offset(5, 0).Select
 
  Sheets("MODELES").Range("a16:aa25").Copy
 
  ActiveCell.PasteSpecial xlPasteAll
 
  nom = InputBox("Merci d'indiquer le nom et prénom du collaborateur : ", "Non - Prénom")
  ActiveCell.Offset(0, 2).Value = nom
 
  poste = InputBox("Merci d'indiquer le poste du collaborateur : " & Chr(10) & Chr(10) & "RM" & Chr(10) & "1er ADJOINT" & Chr(10) & "2ème ADJOINT" & Chr(10) & "VENDEUR(SE)" & Chr(10) & "CHEF CAISSE" & Chr(10) & "STAGIAIRE" & Chr(10) & "APPRENTI", "poste")
  ActiveCell.Offset(4, 2).Value = poste
 
  ray = InputBox("Merci d'indiquer le rayon du collaborateur : ", "rayon")
  ActiveCell.Offset(5, 2).Value = ray
 
  hor = InputBox("Merci d'indiquer le nombre d'heure hebdomadaire du collaborateur : " & Chr(10) & Chr(10) & "Format : HH:MM", "Nb d'heure")
  ActiveCell.Offset(7, 2).Value = hor
 
  anc = InputBox("Merci d'indiquer la date d'ancienneté du collaborateur : " & Chr(10) & Chr(10) & "Format : JJ/MM/AAAA", "Ancienneté")
  Sheets("ANCIENNETE").Activate
  Range("A1").End(xlDown).Offset(1, 0).Value = nom
  Range("B1").End(xlDown).Offset(1, 0).Value = anc
 
  ActiveCell.Copy
 
For Each ws In Worksheets
 
If ws.Name <> "HORAIRE DE BASE" And ws.Name <> "RECAP" Then
 
ws.Range("a999").End(xlUp).Offset(5, 0).PasteSpecial xlPasteAll
 
End If
 
Next ws
 
 
 If MsgBox("Souhaitez vous ajouter ce collaborateur à horraire de base ?", vbYesNo) = vbYes Then
 
  Sheets("MODELES").Range("a32:i36").Copy
  Sheets("HORAIRE DE BASE").Activate
  Range("a104857").End(xlUp).Select
  ActiveCell.Offset(6, 0).PasteSpecial xlPasteAll
 
  ActiveCell.Value = nom
 
  MsgBox ("Merci de compléter l'horaire de base du collaborateur")
 
 
End If
End If
 
 
 
End Sub

[Marc-L]

Bonjour !

Je souhaite faire une boucle pour coller un sélection sur plusieurs feuilles

Alors voir déjà du côté de la méthode FillAcrossSheets et ce, sans boucle !

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[halaster08]

Alors voir déjà du côté de la méthode FillAcrossSheets et ce, sans boucle !

+1, je ne connaissait pas, Merci beaucoup.

[RyuAutodidacte]

Slt Marc ,

, je ne me rappelle avoir été dans ce besoin "FillAcrossSheets", mais il est bon de le remonter à la surface, car je ne connaissais pas non plus.
Ça m'évitera de passer à coté la prochaine fois dans le cas où j'en aurai besoin …

[NadStin]

Bonjour,

Ok, donc je définie ma variable et j'essaie avec FillAcrossSheets

Et pour te répondre Ryu, c'est le tableau avec les entêtes que je veux veux copier pas juste les données.

Bon...

Il y a quoi qui cloche dans :

Code :

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

1
2
Dim myCel As Range
myCel = Cells(Row.Count, 1).End(xlUp).Offset(5, 0).Resize(10, 28)

[halaster08]

Il manque un S, a rowS.count
et un Set en début de ligne.