Selectionner deux plages de données

job75

XLDnaute Barbatruc

• 4 Juillet 2012

• #2

Re : Selectionner deux plages de données

Bonjour adr99, le forum,

Il y a de nombreuses façons de parvenir à vos fins.

Par exemple celle-ci qui utilise le double-clic :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Resize(, 3).Cut [A1].Offset([A1].CurrentRegion.Rows.Count)
End Sub

Clic droit sur l'onglet de la feuille et Visualiser le code.

Fichier joint.

A+

 

Pièces jointes

• Rapprochement par double-clic(1).xls

  37.5 KB · Affichages: 62

Vote positif 0 Vote négatif

A

adr99

Guest

• 4 Juillet 2012

• #3

Re : Selectionner deux plages de données

Merci pour ta réponse mais en réalité je ne souhaite pas déplacer le deuxième tableau je veux que les deux soit copier les uns en dessous des autres mais dans une zone qui se trouve plus en bas. Et dans le deuxième tableau je souhaite avoir la formule de la case C1.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Juillet 2012

• #4

Re : Selectionner deux plages de données

Re,

Autre solution par sélection multiple :

Code:

Private Sub CommandButton1_Click()
If Selection.Areas.Count = 2 Then _
Selection.Areas(1).Cut Selection.Areas(2)
End Sub

Edit : pardon, pas vu votre post #3, je regarde ça.

A+

 

Pièces jointes

• Rapprochement par sélection multiple(1).xls

  36 KB · Affichages: 48

Dernière édition: 4 Juillet 2012

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 4 Juillet 2012

• #5

Re : Selectionner deux plages de données

Bonjour à tous,

Est ce que la question peut être interprétée comme "je veux avoir la formule automatiquement en colonne "C"?

Regardes le fichier ajoute des données en J & K les calculs se feront automatiquement avec "insertion/tableau" sans VBA


JHA

 

Pièces jointes

• Plage tableau.xlsx

  9.9 KB · Affichages: 48

Vote positif 0 Vote négatif

A

adr99

Guest

• 4 Juillet 2012

• #6

Re : Selectionner deux plages de données

Boujour,

Pas tout à fait JHA car je souhaite dans un premier temps copier la première plage de cellule de A1 à C6 la placer en A20 à C26 puis de copier la deuxième plage A10 à C10 et la coller en A27 à C27.
Puis affecter aux cellules B27 et C27 les fusionner et placer la formule qui se trouve en C1.

Voilà j'espère avoir été plus claire

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Juillet 2012

• #7

Re : Selectionner deux plages de données

Re,

C'est d'une limpidité relative, mais enfin essayez :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cel as range
Cancel = True
With [A1].CurrentRegion
  .Copy .Offset(20) 'décalage de 20 lignes vers le bas
  Set cel = .Offset(20 + .Rows.Count).Cells(1)
  Target.Resize(, 3).Copy cel
  cel.Offset(, 1).Formula = .Cells(1, 3).Formula 'copie la formule
End With
End Sub

Fichier (2) avec le double-clic.

A+

 

Pièces jointes

• Rapprochement par double-clic(2).xls

  38.5 KB · Affichages: 61

Vote positif 0 Vote négatif

A

adr99

Guest

• 4 Juillet 2012

• #8

Re : Selectionner deux plages de données

Merci beaucoup
Je voulais juste savoir comment était défini currentRegion. Car dans mon fichier j'ai d'autre tableaux et je ne voudrais pas qu'il me prenne tous les autres tableaux

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 4 Juillet 2012

• #9

Re : Selectionner deux plages de données

salut Tous

Si... tes plages sont fixes,

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Range("A1:C6").Copy Range("A20")
  Range("A10:C10").Copy Range("A26")
  [B26].Formula = [C1].Formula
End Sub

Maintenant tu peux adapter selon tes besoins.

 

Dernière édition: 4 Juillet 2012

Vote positif 0 Vote négatif