Copie de données d'une feuille à une autre

[Guigui]

Bonsoir le forum,

Je bute sur un truc tout bete je pense car je sais que je l'ai déjà fais ...

j'ai dans une feuille des NOMS, dans un tableau, je souhaite copier ces noms et les coller dans une autre feuille les uns au dessous des autres ...

tous va bien mais mes noms ne sont pas collés !

Merci d'avance pour votre aide
A+

Je vous joint un exemple avec mon code ...

 

[Compte Supprimé 979]

Re : Copie de données d'une feuille à une autre

Salut GuiGui,

Tu avais une ligne masquée (la n° 5), j'ai modifié ton code pour une copie plus rapide 😉

Exemple sur 2 noms, reste à faire une boucle pour tous les noms de toutes les colonne.

A+

 

[Guigui]

Re : Copie de données d'une feuille à une autre

Re BrunoM45, le forum,

Merci bien ... je m'en suis rendu compte aprés avoir envoyé le post ...

par contre je ne vois pas ou placé ma boucle dans ton code,
Il me met une alerte End with sans with ...

par contre du coup ce code fonctionne maintenant

Sub CREATION()
For i = 3 To 7
For j = 4 To 8
If Not Cells(i, j) = "" Then
MsgBox ("Nom trouvé - " & Cells(i, j))
Cells(i, j).Copy
Sheets("MASQUE").Range("C500").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
End If
Next j
Next i
End Sub

est ce bien la meme chose ? ou le mien a - t - il des limites ou autres dysfonctionnement...?

J'en profite pour te demander, tu as pas une soluce pour mettre les horraires de début et de fin qui sont en colonne B dans la feuille B LUNDI dans les colonnes A et B de MASQUE (avec l'horraires répeté pour chaque ligne ...)

Merci d'avance ...
Je bidouille de mon coté lol ...
A+
Guillaume

 

[Compte Supprimé 979]

Re : Copie de données d'une feuille à une autre

Re

Voilà le code, combiné au tiens pour avoir également les horaires 😉

Sub CREATION()
Dim HDeb, HFin, NewLig As Integer
' Penser à se positionner sur la bonne feuille
Sheets("B lundi").Select
HDeb = 0: HFin = 0
' Effectue la bouc0le
For i = 3 To 17
  For j = 4 To 8
    ' Prendre l'horaire ICI
    If Cells(i, 2).Value <> 0 And Cells(i + 1, 2).Value <> 0 Then
      HDeb = Cells(i, 2).Value
      HFin = Cells(i + 1, 2).Value
    End If
    If Not Cells(i, j) = "" Then
      MsgBox ("Nom trouvé - " & Cells(i, j))
      NewLig = Sheets("MASQUE").Range("C500").End(xlUp).Offset(1, 0).Row
      Sheets("MASQUE").Range("A" & NewLig).Value = HDeb
      Sheets("MASQUE").Range("B" & NewLig).Value = HFin
      Sheets("MASQUE").Range("C" & NewLig).Value = Cells(i, j).Value
    End If
  Next j
Next i
End Sub

Voilà 😀

 

[Catrice]

Re : Copie de données d'une feuille à une autre

Bonsoir,

Je ne sais pas s'il faut mettre tout les noms ...
Ci-joint mon interpretation ...

EDIT : Trop rapide ce Bruno 😉

 

[Compte Supprimé 979]

Re : Copie de données d'une feuille à une autre

B'soir Catrice....

Mes amis m'appelle : Lucky

Appelle moi juste : Luke

 

[Guigui]

Re : Copie de données d'une feuille à une autre

Re Catrice, BrunoM45,

Enorme merci a tous les deux ! c'est génial !

Je commencais a me servir des chiffres en rouge comme point de repere pour sortir les horaires .... mais c'étais pas gagné ...lol

Merci encore !!

J'oubliais,
je vous joint la feuille d'horaires complete (pour que ce soit plus clair ..)
Est-il possible de se servir des mots MATIN (en E1) et SOIR (E50) pour exclure ces 2 lignes de la boucle ? (enfin surtout celle avec SOIR ...)

Et pour les noms sur la partie droite, je pensais dupliquer le code mais en changeant les bornes de mes boucles... qu'en pensez vous ?

Merci d'avance
A+
Guillaume