Discussion :

[celiria]

Bonjour tout le monde,

voila, dans mon fichier je copiai une sélection de cellule (A1:B500) de la "feuil1" en enlevant les cellules non vides et je collai dans la "feuil2" dans la cellule B5. Mais depuis quelque jour sa ne marche pas et je n'arrive pas à régler le problème.

ma sélection était composé de cellule comportant que du texte et maintenant ma sélection et composé que de cellule comportant des validation de données où j'autorise des listes.

Code :

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

1
2
3
4
5
6
7
8
 
Sheets("feuil1").Select
Range("A1:B500").SpecialCells(xlCellTypeConstants, 23).Copy
 
Sheets(feuil2).Select
Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

comment je peux faire pour réussir a refaire marcher code.
merci d'avance .

[Menhir]

Essaye différentes combinaisons :

.SpecialCells(xlCellTypeConstants, xlNumbers)
.SpecialCells(xlCellTypeConstants, xlTextValues)
.SpecialCells(xlCellTypeFormulas, xlNumbers)
.SpecialCells(xlCellTypeFormulas, xlTextValues)

Si aucune ne fonctionne, il faudra te résoudre à faire une boucle au lieu de faire ça d'un coup.

[celiria]

j'ai essayé:
.SpecialCells(xlCellTypeConstants, xlNumbers)
.SpecialCells(xlCellTypeConstants, xlTextValues)
.SpecialCells(xlCellTypeFormulas, xlNumbers)
.SpecialCells(xlCellTypeFormulas, xlTextValues)

et meme avec les chiffres:
.SpecialCells(xlCellTypeConstants, 1)
.SpecialCells(xlCellTypeConstants, 2)
.SpecialCells(xlCellTypeFormulas, 1)
.SpecialCells(xlCellTypeFormulas, 2)

mais sa ne marche pas, mais j'ai un ami qui ma passé ce morceau de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim c As Range, lgn As Integer
 
Sub SansVide()
 
    For Each c In Range("A2:A100")
        If c <> "" Then
            lgn = Range("C" & 65536).End(xlUp)(2).Row
            c.Copy Range("C" & lgn)
        End If
    Next c
End Sub

le code fait exactement ce que je veux mais je ne le comprend pas et cela me gêne. j'ai essayé de l'adapté pour collé la sélection dans une autre feuille mais sa ne marche pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim c As Range, lgn As Integer
 
Sub SansVide()
 
    For Each c In Worksheets("feuil11").Range("A2:A100")
        If c <> "" Then
            lgn = Worksheets("feuil18").Range("C" & 65536).End(xlUp)(2).Row
            c.Copy Worksheets("feuil18").Range("C" & lgn)
        End If
    Next c
End Sub

[Transitoire]

Bonjour,
J'ai testé les deux codes et ils fonctionnent très bien, vous devez avoir un problème chez vous?
J'ai inscrit en commentaire ce que fait la procédure. (Sous réserve d'une erreur)

Code :

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

1
2
3
4
5
6
7
8
9
Dim c As Range, lgn As Integer
Sub SansVide()
    For Each c In Range("A2:A100")       'Boucle de A2 à A100 en prenant la valeur de c
        If c <> "" Then            'Si la cellule est = rien on passe en dessous
            lgn = Range("C" & 65536).End(xlUp)(2).Row  'Donne le numéro de ligne de la ligne considérée à la variable lgn
            c.Copy Range("C" & lgn)  ' transfert de la valeur de c a la plage de cellule C (num lgn)
        End If
    Next c      'Retour à la boucle
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Dim c As Range, lgn As Integer 
Sub SansVide()
    For Each c In Worksheets("feuil11").Range("A2:A100")
        If c <> "" Then
            lgn = Worksheets("feuil18").Range("C" & 65536).End(xlUp)(2).Row
            c.Copy Worksheets("feuil18").Range("C" & lgn)
        End If
    Next c
End Sub

Cordialement

[celiria]

bon je vois que ce vendredi je devais être très fatigué car au lieu d'écrire dans le code "Feuil1" j'ai écris "Feuill1" donc c'est pour sa que sa marché pas.

je te remercie pour ton explication sur cette procédure sa m'a permis de la comprendre Mais ( et oui il y a toujours un Mais) que j'arrive pas a faire.

cette procédure copie la plage "a" de la feuil1 et colle cette plage dans la feuil18 a la meme hauteur. je veux dire par la que si la plage commence en A2 il l'a collera en C2 aussi, mais j'aimerai choisir ou il commence a copier (en C12 par exemple).

j'ai essayer de changer le 2 entre parenthèse en 3 mais sa mis des cellules entre chaque cellules copié.

Code :

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

lgn = Worksheets("feuil18").Range("C" & 65536).End(xlUp)(2).Row

j'ai aussi essayer de rajouté +1 a lgn pour le décalé mais ma mis aussi des cellules vides entre chaque cellule copié.

Code :

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

c.Copy Worksheets("feuil18").Range("C" & lgn)

[Transitoire]

Bonjour
Pour ma part j'essayerais cela: admettons que vous vouliez 10 lignes en dessous

Code :

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

1
2
3
4
lgn = Worksheets("feuil18").Range("C" & 65536).End(xlUp)(2).Row
Varin = Inputbox (Nombre)  'Nombre de lignes pour arriver à l'entrée des copies
lgn = lgn + Varin
c.Copy Worksheets("feuil18").Range("C" & lgn)

' Je suis sur de rien, mais comme chantait Brel "même si c'est pas sur, c'est quand même peut-être!"

J'espère que c'est ce que vous voulez? J'ai du mal à comprendre ce que vous désirez?

Cordialement

[celiria]

Bonjour Transitoire,

je vais essayer de décrire mon problème plus précisément .

j'ai une feuille qui porte le nom "DONNEES" qui rassemble plusieurs données et je copie les colonnes A B C à partir de la ligne 8 en enlevant les lignes vides si il en a.

Avant j'utilisé ceci:

Code :

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

1
2
3
4
5
6
7
 Sheets("DONNEES").Select
Range("A1:C500").SpecialCells(xlCellTypeConstants, 23).Copy
 
Sheets(nom_feuille).Select
Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

ce code me permet de sélectionner les colonnes désirer et de les copier dans une autre feuille (la feuille "nom_feuille") a partir de cellule B5.

Mais il y a quelque jour, j'ai changé quelque chose, avant il fallait taper a la main les informations, mais maintenant j'utiliser des listes déroulantes comme cela:



et depuis lors le code si dessus ne marche plus donc je cherche une alternative.

j'ai essayé de changer le .SpecialCells(xlCellTypeConstants, 23) en:

.SpecialCells(xlCellTypeConstants, xlNumbers)
.SpecialCells(xlCellTypeConstants, xlTextValues)
.SpecialCells(xlCellTypeFormulas, xlNumbers)
.SpecialCells(xlCellTypeFormulas, xlTextValues)
.SpecialCells(xlCellTypeConstants, 1)
.SpecialCells(xlCellTypeConstants, 2)
.SpecialCells(xlCellTypeFormulas, 1)
.SpecialCells(xlCellTypeFormulas, 2)

mais rien ne marche.

j'ai donc demandé conseil à un ami qui ma donné ce petit morceau de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim c As Range, lgn As Integer
 
Sub SansVide()
 
    For Each c In Range("A2:A100")
        If c <> "" Then
            lgn = Range("C" & 65536).End(xlUp)(2).Row
            c.Copy Range("C" & lgn)
        End If
    Next c
End Sub

Donc aujourd'hui je me retrouve pour l'instant avec cela:

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
 
Dim NumA As Range 
Dim NumB As Range 
Dim NumC As Range 
dim lgn As Integer
 
Sub SansVide()
 
    For Each numA In Worksheets("DONNEES").Range("A8:A500")
        If numA <> "" Then
            lgn = Worksheets(nom_feuille).Range("A" & 65536).End(xlUp)(2).Row
            numA.Copy Worksheets(nom_feuille).Range("A" & lgn)
        End If
    Next numA
 
    For Each numB In Worksheets("DONNEES").Range("B8:B500")
        If numB <> "" Then
            lgn = Worksheets(nom_feuille).Range("B" & 65536).End(xlUp)(2).Row
            numB.Copy Worksheets(nom_feuille).Range("B" & lgn)
        End If
    Next numB
 
    For Each numC In Worksheets("DONNEES").Range("C8:C500")
        If numC <> "" Then
            lgn = Worksheets(nom_feuille).Range("C" & 65536).End(xlUp)(2).Row
            numC.Copy Worksheets(nom_feuille).Range("C" & lgn)
        End If
    Next numC
 
End Sub

mais avec ce code la plage copier et coller a la meme hauteur, donc en A8 et B8 et C8 , mais j'aimerai que sa commence en A4 et B4 et C4.

j'espère que j'ai étais assez précie.

Sinon:

Bonjour
Pour ma part j'essayerais cela: admettons que vous vouliez 10 lignes en dessous

Code :

lgn = Worksheets("feuil18").Range("C" & 65536).End(xlUp)(2).Row
Varin = Inputbox (Nombre) 'Nombre de lignes pour arriver à l'entrée des copies
lgn = lgn + Varin
c.Copy Worksheets("feuil18").Range("C" & lgn)
' Je suis sur de rien, mais comme chantait Brel "même si c'est pas sur, c'est quand même peut-être!"

J'espère que c'est ce que vous voulez? J'ai du mal à comprendre ce que vous désirez?

Cordialement

cela ne marche pas ,cela rajoute des lignes entre chaques cellules copiés