problème de concaténation

Bonjour à tous,

J'ai un petit souci de concaténation :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Boucle() Dim i As Integer, j As Integer Dim Plage As Range, Cellule As Range   Sheets("GOOD").Activate i = 4 j = 1 Do If i > 15000 Then Exit Do If (Sheets("GOOD").[M & i] = 1) Then Sheets("GOOD").Select Range("E" & i & ":G" & i).Select Selection.Copy Sheets("test").Select Range("D" & j).Select ActiveSheet.Paste End If j = j + 1 i = i + 1 Loop While Cells(i, 2) <> ""   End Sub

---

le probleme se situe à la ligne :

Code:

---

If (Sheets("GOOD").[M & i] = 1) Then

---

Il ne veut pas prendre le code [M & i], j'ai essayé aussi ["M" & i ] mais sa ne fonctionne pas non plus :roll:, l'erreur et la suivante :

Citation:

---

Erreur d'éxécution '13':

Incompatibilité de type

---

Voila en espérant avoir été le plus clair possible.

Cordialement

Bonjour,
essaye

Code:

---

Sheets("GOOD").Range("M" & i) = 1

---

Sinon ton code pique les yeux avec tes slect et ton ecran doit bouger dans tout les sens essaye ceci

Code:

---

1 2	Sheets("GOOD").Range("E" & i & ":G" & i).Copy Sheets("test").Range("D" & j).paste

---

Ou mieu en une ligne

Code:

---

Sheets("GOOD").Range("E" & i & ":G" & i).Copy Sheets("test").Range("D" & j)

---

Citation:

---

En faisant ça, Krovax, tu compares aussi un string et une valeur. A peut pas marcher

---

Si ça marche, un exemple avec 1 en H1 :

Code:

---

1 2 3 4 5 6 7

Sub i() If Range("H1") = 1 Then MsgBox "Oui" Else MsgBox "non" End If End Sub

---

Edit : marche aussi :

Code:

---

If Range("H1") = "1" Then

---

Visiblement excel est suffisamment malin pour que je n'ai pas besoin de réfléchir trop loin (heureusement d'ailleurs :aie:)

Code:

---

1 2 3 4 5

i = 1 If Range("a" & i) = 1 Then MsgBox "Ca marche" End If

---

Ce code fonctionne même si la cellule contient '1 (ce qui effectivement revient à coup sur à comparer un valeur a une chaine de caractère, mais il faut croire que ceux qui l'ont pondu, on pensait a nous)

Salut jackall et le forum
[A1] est une notation abrégée de Range("A1").
[M & i] revient donc à écrire Range("M & i"). Étonnant qu'Excel ait du mal à comprendre :P
Excel fait toujours ce qu'on lui demande... rarement ce que l'on veut!
Une autre proposition pour ta macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Boucle() Dim X As Long 'Sheets("test").Range("D1:F" & Range("A1").SpecialCells(xlCellTypeLastCell).Row).ClearContents Sheets("GOOD").Activate   For X = 4 To Range("M65536").End(xlUp).Row If Range("M" & X) = 1 Then Range("E" & X & ":G" & X).Copy Sheets("test").Range("D65536").End(xlUp)(2) Next X 'Sheets("test").Range("D1:F1").Delete End Sub

---

A+

Re bonjour à tous,

Un grand merci à vous pour avoir donné tant de solution, et désolé d'avoir été si long à repondre, étant en stage je viens d'avoir la visite d'un de mes profs pour faire un peu le point ^^

sinon j'ai modifier le code qui pique les yeux :aie: avec un mixte de Krovax et Gorfael :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Boucle() Dim i As Integer, j As Integer Dim Plage As Range, Cellule As Range   Sheets("GOOD").Activate i = 4 j = 1   Do If i > 15000 Then Exit Do If (Sheets("GOOD").["M & i"] = 1) Then Sheets("GOOD").Range("E" & i & ":G" & i).Copy Sheets("test").Range("D" & j).Paste End If j = j + 1 i = i + 1   Loop While Cells(i, 2) <> "" End Sub

---

une fois lancé, aucun message d'erreur, mais je n'ai aussi aucun résultat, il ne me colle rien dans la feuille "test" ...

lorsque j'écris :

Code:

---

Sheets("GOOD").Range("E" & i & ":G" & i).Copy

---

c'est bien la ligne de E&i à G&i je ne me suis pas trompé ... ?

et

Code:

---

Loop While Cells(i, 2) <> ""

---

cela peut se traduire en : jusqu'à ce qu'il y est une cellule vide dans la 2ème colone c'est bien cela?

merci pour votre attention
Cordialement

Utilises le debuggueur pour voir là ou tu passes et là ou tu ne passes pas. ;)

ben le soucis c'est que j'ai utilisé le debogueur et il n'y a aucune erreur, mais rien de collé ...

Code:

---

(Sheets("GOOD").["M & i"] = 1)

---

J'ai du mal a croire que cela fonctionne a mon avis tu ne rentre jamais dans ton bloque if


essaye un bon vieux

Code:

---

(Sheets("GOOD").Range("M" & i) = 1)

---

alors je viens de faire la modif avec ta solution Krovax, et maintenant l'erreur se situe à la ligne :

Code:

---

Sheets("test").Range("D" & j).Paste

---

je ne comprend absolument pas pourquoi étant donné que tout à l'heure il n'y avait pas d'erreur, ou alors comme tu l'a souligné, je ne rentrais pas dans mon bloque if et du coup je ne pouvais pas voir l'erreur ...

Citation:

---

ben le soucis c'est que j'ai utilisé le debogueur et il n'y a aucune erreur, mais rien de collé ...

---

Saperlipopette le debuggueur n'est pas la seulement pour voir les erreurs mais aussi pour controler les valeurs et savoir si tu passes dans tes controles :

Citation:

---

pour voir là ou tu passes et là ou tu ne passes pas.

---

Sans trop de conviction

Code:

---

Sheets("GOOD").Range("E" & i & ":G" & i).Copy Sheets("test").Range("D" & j & ":F" & j)

---

Vérifie que le nom de ton onglet est bien test et qu'il n'y a pas un espace de perdu quelque part

Ps : je préfère copier directement au bon endroit sans passer par le presse papier ca évite d'avoir a le vider

Citation:

---

alors je viens de faire la modif avec ta solution Krovax, et maintenant l'erreur se situe à la ligne :

---

Attention parfois les erreurs pourraient se mettre à parler !

Edit : plus sérieusement elle dit quoi l'erreur ?

Citation:

---

sans passer par le presse papier ca évite d'avoir a le vider

---

Ca evite de faire

Code:

---

application.cutcopymode = false

---

Sinon pourquoi faire un copy si on a la plage, un = peut convenir non ?

en utilisant le debogeur, il parcourt entièrement le code sans sauter une ligne, mais il s'arrete sur la ligne

Code:

---

Sheets("test").Range("D" & j).Paste

---

même en modifiant en

Code:

---

Sheets("GOOD").Range("E" & i & ":G" & i).Copy Sheets("test").Range("D" & j & ":F" & j)

---

et l'erreur me dit :

Citation:

---

erreur d'éxécution '438':

Propriété ou méthode non gérée par cet objet

---

ou lala je fatigue je n'avais pas vu ce qui saute aux yeux .paste n'existe pas pour l'objet RAnge


Edit: avec l'erreur c'est tout de suite plus facile. Merci.

Essai :

Code:

---

Sheets("GOOD").Range("E" & i & ":G" & i).Copy destination:=Sheets("test").Range("D" & j & ":F" & j)

---

:ccool: c'est parfait, cela fonctionne vraiment bien, sa fait vraiment plaisir d'avoir des personnes qui nous donne un coup de main.

vraiment merci à tous pour votre aide et pour votre patiente.

Cordialement

Bonjour à tous,

Je revien ici pour une autre petite question, toujours en correspondance avec ce qui précède.
Une foi les données copiées, j'arrive à des résultats comme ceci dans ma feuille excel :

Code:

---

1 2 3 4 5 6

A B C D E 1 3 2 5 3 2 4 4 7 3 5 6

---

( J'ai été obligé de mettre ceci dans les balises code car sinon je perdais la mise en forme )

ou encore directement comme cela mais sa dépend des fichiers que je copie:

Code:

---

1 2 3 4 5 6

A B C D E 1 3 4 2 5 3 3 6 4 5

---

Et moi je voudrais bien faire ceci avec le premier exemple :

Code:

---

1 2 3 4 5 6

A B C D E 1 2 3 4 2 7 5 3 3 6 4 5

---

Mais je n'ai absolument aucune idée de la façon de faire.
Pourriez vous me donner un coup de main ?

Cordialement

Le mieux est sans doute de mettre ce post en résolu et d'ouvrir un nouveau post, ainsi un problème = un sujet c'est plus clair.

Mon conseil pour ce que tu demande serait de faire une recherche sur le forum sur les cellules vides il existe plusieurs solution qui peuvent te convenir, un boucle sur les cellules, l'utilisation de specialcells, il y a d'ailleur un post récent sur le sujet, si je le retouve je reviens coller le lien ici.

Sans avoir tester

Code:

---

1 2 3 4

dim cel as range for each cel in Range("A1:D20") 'tu met ta zone avec le taleau if isempty(cel) then : cel.Delete shift:=xlUp next cel

---

Pour avoir la zone avec le tableau tu peux chercher la dernière ligne et dernière colonne
Dernière ligne et la dernière colonne renseignées d'une feuille

Edit : je vien de voir la remarque d'aalex c'est vrai qu'il y a un post qui utilisé les specialcell ca doit dater d'un jour ou deux max

merci à vous, je vais essayer de retrouver ce post et de voir avec ce que vous me proposer ^^

un grand merci :ccool:

cordialement