Discussion :

[jackall]

Bonjour à tous,

J'ai un petit souci de concaténation :

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
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 :

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

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 , l'erreur et la suivante :

Erreur d'éxécution '13':

Incompatibilité de type

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

Cordialement

[Krovax]

Bonjour,
essaye

Code :

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

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 :

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

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

Ou mieu en une ligne

Code :

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

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

[aalex_38]

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 :

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

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 :

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

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

[Krovax]

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

Code :

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

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)

[Gorfael]

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
Excel fait toujours ce qu'on lui demande... rarement ce que l'on veut!
Une autre proposition pour ta macro

Code :

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

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+

[jackall]

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 avec un mixte de Krovax et Gorfael :

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
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 :

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

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 :

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

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

[aalex_38]

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

[jackall]

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

[Krovax]

Code :

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

(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 :

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

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

[jackall]

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

Code :

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

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 ...

[aalex_38]

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 :

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

[Krovax]

Sans trop de conviction

Code :

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

               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

[aalex_38]

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 ?

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

Ca evite de faire

Code :

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

application.cutcopymode = false

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

[jackall]

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

Code :

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

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

même en modifiant en

Code :

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

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

et l'erreur me dit :

erreur d'éxécution '438':

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

[aalex_38]

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 :

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

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

[jackall]

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

[jackall]

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 :

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

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 :

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

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 :

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

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

[aalex_38]

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.

[Krovax]

Sans avoir tester

Code :

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

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

[jackall]

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

un grand merci

cordialement