Macro copier/coller avec « si »

kingfadhel

XLDnaute Impliqué

• 15 Janvier 2018

• #2

bonjour,
Un fichier joint sera le bienvenu.

 

Vote positif 0 Vote négatif

G

Gipiwa

XLDnaute Nouveau

• 16 Janvier 2018

• #3

Voici un exemple. J’espère que c’est compréhensible..

 

Pièces jointes

• Exmple macro.xlsx

  11.1 KB · Affichages: 23

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 16 Janvier 2018

• #4

Bonjour,

Pas très clair tout ça...

Code :

VB:

Sub selection()
If IsEmpty(Range("G15")) Then Range("G1:I13").Select: Exit Sub
If IsEmpty(Range("G16")) Then Range("G1:I16").Select: Exit Sub
If IsEmpty(Range("G17")) Then Range("G1:I17").Select: Exit Sub
If IsEmpty(Range("G18")) Then Range("G1:I18").Select: Exit Sub
End Sub

Bonne journée

 

Vote positif 0 Vote négatif

G

Gipiwa

XLDnaute Nouveau

• 16 Janvier 2018

• #5

Je conçois que ce n’est pas très clair. Je vais essayer de l’être plus:
Le tableau en G1:I12 est fixe sa dimension ne bouge pas. Mais le tableau qui débute en G14 est lui variable, il peut ne pas exister, avoir 1,2,3,... lignes. (Comme un tableau croisé dynamique en fait)
Ce que je voudrais faire est qu’en activant la macro il soit sélectionné et copié soit juste le 1er tableau si le second n’existe pas. Soit le 1er tableau et le 2eme avec le nombre de lignes correspondantes.
J’espère que c’est un peu plus clair..

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 16 Janvier 2018

• #6

Re,

Désolé, mais pas de tableau dans l'exemple.
Le code fonctionne, en fonction de ce que tu as demandé et de l'exemple que tu as envoyé..

A+

 

Vote positif 0 Vote négatif

G

Gipiwa

XLDnaute Nouveau

• 17 Janvier 2018

• #7

Calvus à dit:

Re,

Désolé, mais pas de tableau dans l'exemple.
Le code fonctionne, en fonction de ce que tu as demandé et de l'exemple que tu as envoyé..

A+

Cliquez pour agrandir...

Je te remercie ! Ça sélectionne en effet correctement. Mais j’ai encore une petite question... je n’arrive pas à intégrer dans le code le fait que ça copie la sélection. Peut être une idée ? Merci

 

Vote positif 0 Vote négatif