Copier Coller Range - PB Type mismatch

Bonjour à tous,
J'ai un problème pour copier des données qui représentent le travail de certaines collaborateurs suivant les jours où ils étaient présents (variable par personne).
Quel que soit le code en question j'ai le même problème de type mismatch.

Code:

---

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

Sub test1() Dim a, i, j, k As Integer a = WorksheetFunction.CountA(Sheets("Raw").Range("A:A")) 'Compte les lignes pour limiter le nombre de boucles For i = 1 To a If InStr(1, Sheets("Raw").Cells(i, 1), ",") <> 0 Then 'Je recherche les lignes, dans la colonne A, dans lesquelles il y a une virgule parce que cela subdivise mes données par personne (le nom est séparé du prénom par une virgule) For j = 1 To 25 'je met une deuxième boucle dans la première qui recherche la seconde virgule pour déterminer le Range des données de chaque personne (qui sont variables) If InStr(Sheets("Raw").Cells(i + j, 1), 1, ",") <> 0 Or IsEmpty(Sheets("Raw").Cells(i + j, 1)) = True Then 'Du coup j'essaie de copier les données dans une nouvelles feuille en les espaçant. Du coup, je pourrais faire toutes mes formules dans cette nouvelle feuille sans utiliser VBA. Sheets("Raw").Range(Cells(i, 1), Cells(i + j - 1, 20)).Copy Destination:=Sheets("Sheet2").Range(Cells(k * 50 + 2, 1), Cells(k * 50 + 1 + j, 21)) 'Mais ici j'ai une erreur de type mismatch. k = k + 1 Exit For End If Next j End If Next i End Sub

---

Merci pour votre aide. Par contre pas trop compliqué, je suis pas au point niveau Array et autres joyeusetés.

NB: j'ai rajouté une image de l'onglet Raw.
Pièce jointe 395021

Applique Sheets("Raw") aussi aux Cells à l'intérieur du Range.
Idem pour le Sheets("Sheet2") de la destination.

Code:

---

Sheets("Raw").Range(Sheets("Raw").Cells(i, 1), Sheets("Raw").Cells(i + j - 1, 20)).Copy Destination:=Sheets("Sheet2").Range(Sheets("Sheet2").Cells(k * 50 + 2, 1), Sheets("Sheet2").Cells(k * 50 + 1 + j, 21))

---

Ca n'a rien changé malheureusement.

Supprime le second Cells dans la référence de destination (les deux zone de sont pas de même taille).

Code:

---

Sheets("Raw").Range(Sheets("Raw").Cells(i, 1), Sheets("Raw").Cells(i + j - 1, 20)).Copy Destination:=Sheets("Sheet2").Range(Sheets("Sheet2").Cells(k * 50 + 2, 1))

---

J'ai toujours unType Mismatch.

Supprimer le second Cells, ça voulait dire aussi supprimer le Range devenu inutile.

Code:

---

Sheets("Raw").Range(Sheets("Raw").Cells(i, 1), Sheets("Raw").Cells(i + j - 1, 20)).Copy Destination:=Sheets("Sheet2").Cells(k * 50 + 2, 1)

---

Code:

---

Sheets("Raw").Range(Sheets("Raw").Cells(i, 1), Sheets("Raw").Cells(i + j - 1, 20)).Copy Destination:=Sheets("Sheet2").Cells(k * 50 + 2, 1)

---

Non plus :(

Salut

Plutôt que de vouloir tester les lignes en dessous de celle où tu y a trouvé un "Nom,Prénom", on peut par exemple faire un code comme celui-ci

Code:

---

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

Sub Rangement() Dim rgA As Range Dim shDesti As Worksheet Dim RowDestiEnCours As Integer Dim TabNomPre As Variant Dim iCol As Integer   'On initialise Set shDesti = ThisWorkbook.Sheets("Sheet2") RowDestiEnCours = 0     'On pointe la feuille de travail With ThisWorkbook.Sheets("Raw")   'On boucle sur les cellule de la colonne A For Each rgA In .Range("A1", .Cells(.Rows.Count, "A").End(xlUp))   'On ignore la ligne si la cellule est vide If rgA.Value <> "" Then   'Si la cellule contient Nom, Prénom, on ajoute une ligne dans le tableau de déstination TabNomPre = Split(rgA, ",")   'On regarde si tabNomPre est un tableau If UBound(TabNomPre) > 0 Then 'Si oui, la cellule contient le nom et le prénom 'On pointe la ligne de destination suivante RowDestiEnCours = RowDestiEnCours + 1 'On place le nom dans la 1ère colonne (en retire d'éventuels espace en début ou fin de mot) shDesti.Cells(RowDestiEnCours, "A").Value = Trim(TabNomPre(0)) 'On place le prénom dans la suivante shDesti.Cells(RowDestiEnCours, "B").Value = Trim(TabNomPre(1)) 'On pointe la colonne de la cellule suivante de la ligne en cours qui recevra d'éventuelles données iCol = 3 Else 'Sinon, la cllule contient les données qu'on ajoute à la suite shDesti.Cells(RowDestiEnCours, iCol).Value = rgA.Value 'On pointe la colonne suivante iCol = iCol + 1 End If End If Next   End With     'On débloque la lise à jour de l'affichage Application.ScreenUpdating = False     End Sub

---

Ici le code passe de cellule en cellule dans la colonne A en ignorant les cellules vides.
On teste si elle contient un "Nom,Prénom)

• Si c'est le cas, on pointe une nouvelle ligne dans le tableau de destination.
  On inscrit le nom et le prénom respectivement dans les cellules de la colonne A et B.
  On pointe la colonne C pour pouvoir inscrire des informations qui serait dans la ou les cellules qui suivent
• Si ça n'est pas le cas, nous sommes en présence de données à ajouter sur la ligne de l'utilisateur
  On inscrit l'information sur la colonne pointée (La 1ère information se retrouve placée en colonne C).
  Puis on pointe la colonne suivante pour l'information qui sera peut-être présente dans la cellule suivante

Lorsque la 1er utilisateur et ses données ont étaient placées sur la 1ère ligne du tableau de destination, et que la cellule suivante contient donc un nouveau "Nom, Prénom" (on ne tient pas compte des cellules vides), on passe à la ligne suivante du tableau de destination et on pointe de nouveau la colonne C pour commencer à y placer les informations. Ainsi il n'y a besoin que d'une seule boucle. A chaque tour on laisse simplement les données inscrite sur la ligne précédente pour passer à la ligne suivante.


Ps: Attention lors des déclarations de variables, lorsque tu écris

Code:

---

Dim a, i, j, k as integer

---

VBA traduit ça en

Code:

---

Dim a as variant, i as variant, j as Variant, k as Integer

---

Il faut répéter pour chaque variable le type que tu souhaites lui attribuer, dans ton cas

Code:

---

Dim a as integer, i as integer, j as integer, k as Integer

---

++
Qwaz

Merci Qwazerty,

Outre le fait que je comprends probablement pas tout.
Je ne suis pas sûr que cela réponde à mon problème.
Je crois que tu pensais qu'il y avait un utilisateur différent à chaque ligne, non?
En même temps, je pige qu'à moitié ce que tu m'écris.
Le passage avec Trim me passe bien au-dessus.

Je ne suis pas sûr que ce code me permette de délimiter le Range, au niveau des lignes, les colonnes étant fixes.
J'ai mis une image de mon onglet Raw plus haut.

Enfin, le code me donne une erreur 400 sur :

Code:

---

shDesti.Cells(RowDestiEnCours, iCol).Value = rgA.Value

---

Citation:

---

Envoyé par Megguido21

Code:

---

Sheets("Raw").Range(Sheets("Raw").Cells(i, 1), Sheets("Raw").Cells(i + j - 1, 20)).Copy Destination:=Sheets("Sheet2").Cells(k * 50 + 2, 1)

---

Non plus :(

---

Une question dont la réponse me paraissait évidente mais en lisant les commentaires de ton code, j'ai un doute : l'onglet Sheet2 existe déjà n'est-ce pas ?
Et il est dans le même classeur que l'onglet Raw ?

bonjour
une question
les nom,prenom peuvent etre en doublons mais ces doublons sont il triés c'est a dire n'y a t il pas un nom,prenom plusieur fois separé par d'autre lignes nom,prenom

du genre

toto,titi	bla bla bla	bla bla bla	bla bla bla	bla bla bla
bidule,truc	bla bla bla	bla bla bla	bla bla bla	bla bla bla
toto,titi	bla bla bla	bla bla bla	bla bla bla	bla bla bla

si c'est le cas et que si j'ai bien compris ton intention qui est de mettre tout les "blabla bla" a la suite apres leur nom,prenom respectifs dans le sheets de destination
il va te falloir soit trier avant soit proceder a un stokage dans un dico par exemple

Citation:

---

Envoyé par Menhir

Une question dont la réponse me paraissait évidente mais en lisant les commentaires de ton code, j'ai un doute : l'onglet Sheet2 existe déjà n'est-ce pas ?
Et il est dans le même classeur que l'onglet Raw ?

---

Oui cette onglet existe déjà.
Pièce jointe 395034

Citation:

---

Envoyé par patricktoulon

bonjour
une question
les nom,prenom peuvent etre en doublons mais ces doublons sont il triés c'est a dire n'y a t il pas un nom,prenom plusieur fois separé par d'autre lignes nom,prenom

du genre
(...)

si c'est le cas et que si j'ai bien compris ton intention qui est de mettre tout les "blabla bla" a la suite apres leur nom,prenom respectifs dans le sheets de destination
il va te falloir soit trier avant soit proceder a un stokage dans un dico par exemple

---

Non, les noms n'apparaissent qu'une fois. Sur la même ligne que le nom on a les données totales ou moyennes suivant la variable en question.
Ensuite, sur la même colonne que le nom on aura les jours ouvrés du mois.
Mon but est ainsi de trouver un moyen de sélectionner toutes les données: de la ligne avec le nom en s'arrêtant avant la prochaine personne.
Et de les copier dans une deuxième feuille dans des intervalles de 50 lignes pour avoir la place de rentrer toutes les données, faire tous mes calculs et intégrer tous mes graphiques.

Bon, ben j'ai trouvé une manière de copier tout ça sans avoir de problème.
Pour ceux qui passeront par ici.

Code:

---

1 2 3 4 5

Sheets("Raw").Select Cells(Sheets("Sheet1").Cells(2, 2), 1).Resize(Sheets("Sheet1").Cells(3, 2) - Sheets("Sheet1").Cells(2, 2), 20).Copy Sheets("Sheet4").Select Range("A2").Select ActiveSheet.Paste

---

Dans l'onglet Sheet1, sur la colonne 2, c'est-à-dire B, j'ai un macro me donnant la ligne où se situe le nom de chaque personne présente dans mon fichier.