Coller un tableau

[CISCO]

Bonsoir

Sur une feuille j'ai une plage de données, par exemple en B4:C10, avec une ligne sur deux vides. J'aimerai copier cette plage dans un tableau et ne recoller ailleurs que les lignes contenant des données à partir de E4, exactement dans le même ordre.

Pour le moment, j'ai écrit ça :

Sub transfert()
Dim tablo(), tablo2()

tablo = Range("B4:C10").Value
tablo2 = Range("E4:F7").Value

        For col = 1 To 2
                For i = 1 To UBound(tablo) Step 2
                lig = Int(i / 2) + 1
                tablo2(lig, col) = tablo(i, col)
                Next i
         Next col

Range("E4").Select
.......

End Sub

Bien sûr, il manque des lignes.
On pourrait obtenir le résultat désiré en mettant une ligne de code du style Range(...,...) = tablo (i, col) à la place de tablo2 (lig, col) = tablo (i, col).
Je pourrais aussi coller ces valeurs avec deux boucles à la place des pointillés, mais j'aimerai savoir s'il est possible de coller le tablo2 en une seule fois, sans utiliser une ou des boucles, histoire de gagner en rapidité.

@ plus

P.S : Dans la réalité, les plages initiales contiennent une soixantaine de lignes, et il faut faire cela à partir de 120 feuilles.

 

[Victor21]

Bonsoir CISCO.

As-tu essayé de filtrer avant de copier ?

 

[Staple1600]

Bonsoir le fil, le forum

@CISCO
Cette syntaxe n'est pas envisageable pour toi?

Sub Macro1()
[B4:C10].SpecialCells(xlCellTypeConstants, 2).Copy: [E4].PasteSpecial Paste:=-4104, SkipBlanks:=-1
End Sub

NB: Ici dans cet exemple, les données en B4:C10 sont du texte.

 

[CISCO]

Bonjour à tous, bonjour Victor21, bonjour Staple1600

@ Victor21 : Effectivement, je n'avais pas pensé à cette possibilité, filtrer... Je vais y réfléchir...

@ Staple1600 : Vraiment très pratique, cette solution. Seulement, elle ne fonctionne, apparemment, qu'avec du texte. Cela me convient, puisque c'est mon cas. Pour ma culture, est-ce que tu aurais une solution aussi concise fonctionnant dans le cas du transfert de valeurs numériques ?

Merci à vous deux

@ plus

 

[job75]

Bonjour CISCO, Patrick, JM,

@ Staple1600 : Vraiment très pratique, cette solution. Seulement, elle ne fonctionne, apparemment, qu'avec du texte. Cela me convient, puisque c'est mon cas. Pour ma culture, est-ce que tu aurais une solution aussi concise fonctionnant dans le cas du transfert de valeurs numériques ?

JM n'a pas fini sa liqueur de prunes :

Sub Macro1()
[B4:C10].SpecialCells(xlCellTypeConstants).Copy: [E4].PasteSpecial Paste:=-4104, SkipBlanks:=-1
End Sub

A+

 

[CISCO]

Bonjour à tous

Merci Job75.

@ plus

 

[CISCO]

Rebonjour

Apparemment, cela plante s'il y a une ou des listes déroulantes dans la plage initiale.


Est-ce qu'il y a une solution pour copier-transférer uniquement les valeurs de cette plage, du texte dans mon cas, sans garder les listes déroulantes ? Toujours, pour ma culture, sans utiliser de boucle si possible.

@ plus

 

[job75]

Re,

Chez moi pas de problème pour le copier-coller avec des listes de validation.

Maintenant si l'on veut copier uniquement les valeurs :

Sub Macro1()
[B4:C10].SpecialCells(xlCellTypeConstants).Copy
[E4].PasteSpecial xlValues
End Sub

A+

 

[CISCO]

Bonjour

Effectivement, le problème ne vient pas des listes déroulantes, mais de cellules fusionnées.
De plus, je viens de voir qu'il ne faut pas supprimer toutes les cellules vides, mais uniquement celles des lignes vides, une ligne sur deux en pratique. Cf. un tout petit exemple en pièce jointe. Avec une ou des boucles, je sais faire, mais j'aurai bien aimé trouver autrement, pour gagner en rapidité, et histoire d'en apprendre un peu plus sur le sujet. S'il ni a pas moyen sans boucle, il ne faut pas vous prendre la tête avec ça...

@ plus

 

[Staple1600]

Bonsoir le fil, le forum, CISCO, Victor21, job75

Bonjour CISCO, Patrick, JM,
JM n'a pas fini sa liqueur de prunes

A 19h49, j'en suis pas à la liqueur de prunes mais au potage d'orties

Donc en tenant compte de la correction de job75, mais en mode "raccourci"
(c'est juste histoire de voir les syntaxes possibles)

Sub Macro1a()
On Error Resume Next
[B4:C10].SpecialCells(2).Copy: [E4].PasteSpecial Paste:=-4104, SkipBlanks:=-1
Application.CutCopyMode = False
End Sub

EDITION:
@CISCO
Rien compris à ton fichier exemple
(Il y a de macro dedans, ni de lignes vides)

 

[Staple1600]

Re

@CISCO
Tu m'en voudras pas de cette petite taquinerie

Sub Macro1b()
[B:C].SpecialCells(-4174).Copy: [Z1].PasteSpecial -4163: [Z:AA].SpecialCells(4).Delete -4162
End Sub

NB: Je te laisse retrouver à quoi correspond -4174, -4163, 4 et -4162
(C'était là que j'ai mis du VBA en Option Taquin )

PS: La copie se fait bien, mais chuis pas sur que ce soit le résultat final escompté, non ?

 

[CISCO]

Bonjour

Bonsoir le fil, le forum, CISCO, Victor21, job75
Rien compris à ton fichier exemple
(Il y a de macro dedans, ni de lignes vides)

Vu que les macros que j'ai essayé ne fonctionnaient pas, je les ai effacées...
Et pour ce qui est des lignes vides, effectivement, il ni en a pas car l'exemple que j'ai mis ne contenait que des cas avec des cellules fusionnées.

Je modifie ma précédente pièce jointe en y mettant ce que j'aimerai obtenir automatiquement avec la macro, et si possible sans boucle.

Merci

 

[CISCO]

Rebonjour

Re

NB: Je te laisse retrouver à quoi correspond -4174, -4163, 4 et -4162
(C'était là que j'ai mis du VBA en Option Taquin )

Heureusement qu'il y a l'aide de MS Office...
Je suppose que c'est -4175+12 = -4163 et -4175+12+1 = -4162.

Pour autant, dire que je comprend tout ce que cela signifie...

Je teste et reteste pour essayer de comprendre tout cela de ce pas...

@ plus

 

[Staple1600]

Re

@CISCO
Non ce sont simplement les valeurs numériques des constantes

Sub Macro1()
Columns("A:A").SpecialCells(xlCellTypeBlanks).Select
'peut s'écrire
Columns("A:A").SpecialCells(4).Select
End Sub

Voir ici (par exemple) pour plus
Ce lien n'existe plus

 

[CISCO]

Bonsoir

Re

@CISCO
Non ce sont simplement les valeurs numériques des constantes

Oui, je sais. Cf. par ex Ce lien n'existe plus.

@ plus