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