Selectionner deux plages de données

[adr99]

Bonjour à tous,

Je cherche à séléctionner 2 plages de données et les copier les une sous les autres sachant que sur la 2ème plage j'ai une cellule fusionné qui doit contenir une formule de l'autre plage de donnée.

Pour illustrer mes propos voir le fichier en annexe

 

[job75]

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 :

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+

 

[adr99]

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.

 

[job75]

Re : Selectionner deux plages de données

Re,

Autre solution par sélection multiple :

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+

 

[JHA]

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

 

[adr99]

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

 

[job75]

Re : Selectionner deux plages de données

Re,

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

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+

 

[adr99]

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

 

[Si...]

Re : Selectionner deux plages de données

salut Tous

Si... tes plages sont fixes,

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.