Erreyr sur code

Le
Hicham Oudrhiri
Bonjour à tous

Private Sub CommandButton1_Click()

Si vous pouvez me dire ou est l'erreur sur ce code
Sheets("Feuil1").Activate
ActiveSheet.Range("B11").Select
Selection.Copy
Sheets("Feuill2").Activate
torce = Sheets("Feuill2").Range("i19").End(xlDown).Offset(0, 1).Address
morce = Sheets("Feuill2").Range("j19").End(xlDown)(2).Address
Range(torce & morce).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:úlse

End sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #4245771
Bonsoir,

J'ai peut-être mal interprété mais:
Ceci copie la cellule B11 de la feuille 1 vers la première cellule vide de
la colonne I de la feuille 2
'-----------
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("B11").Copy
Sheets("Feuil2").Range("i" & Sheets("Feuil2").[i65536].End(3).Row +
1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
'----------
--
Salutations
JJ


"Hicham Oudrhiri"
Bonjour à tous

Private Sub CommandButton1_Click()

Si vous pouvez me dire ou est l'erreur sur ce code
Sheets("Feuil1").Activate
ActiveSheet.Range("B11").Select
Selection.Copy
Sheets("Feuill2").Activate
torce = Sheets("Feuill2").Range("i19").End(xlDown).Offset(0, 1).Address
morce = Sheets("Feuill2").Range("j19").End(xlDown)(2).Address
Range(torce & morce).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:úlse

End sub




isabelle
Le #4245721
bonjour Hicham,

peut être,

Range(torce & ":" & morce).Select

isabelle


Bonjour à tous

Private Sub CommandButton1_Click()

Si vous pouvez me dire ou est l'erreur sur ce code
Sheets("Feuil1").Activate
ActiveSheet.Range("B11").Select
Selection.Copy
Sheets("Feuill2").Activate
torce = Sheets("Feuill2").Range("i19").End(xlDown).Offset(0, 1).Address
morce = Sheets("Feuill2").Range("j19").End(xlDown)(2).Address
Range(torce & morce).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:úlse

End sub




MichDenis
Le #4245701
Tu peux utiliser ceci :

morce = .Range("j19").End(xlDown)(2).Column
La ligne de code peut être problématique si le reste de
la colonne J:J est vide ... tu vas te retrouve sur la lignge 65536
et la section (2) ne sera pas exécutable puisque cette ligne est impossible.


'--------------------------
Private Sub CommandButton1_Click()

Sheets("Feuil1").Range("B11").Copy
With Sheets("Feuill2")
torce = .Range("i19").End(xlDown).Offset(0, 1).Row
morce = .Range("j19").End(xlDown)(2).Column
.Cells(torce & morce).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End With
Application.CutCopyMode = False
End Sub




"Hicham Oudrhiri"
Bonjour à tous

Private Sub CommandButton1_Click()

Si vous pouvez me dire ou est l'erreur sur ce code
Sheets("Feuil1").Activate
ActiveSheet.Range("B11").Select
Selection.Copy
Sheets("Feuill2").Activate
torce = Sheets("Feuill2").Range("i19").End(xlDown).Offset(0, 1).Address
morce = Sheets("Feuill2").Range("j19").End(xlDown)(2).Address
Range(torce & morce).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:úlse

End sub
MichDenis
Le #4245671
J'ai omis de remplacer le & par la virgule sur cette ligne de code :

.Cells(torce, morce).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse



"MichDenis" %23BJlSE%
Tu peux utiliser ceci :

morce = .Range("j19").End(xlDown)(2).Column
La ligne de code peut être problématique si le reste de
la colonne J:J est vide ... tu vas te retrouve sur la lignge 65536
et la section (2) ne sera pas exécutable puisque cette ligne est impossible.


'--------------------------
Private Sub CommandButton1_Click()

Sheets("Feuil1").Range("B11").Copy
With Sheets("Feuill2")
torce = .Range("i19").End(xlDown).Offset(0, 1).Row
morce = .Range("j19").End(xlDown)(2).Column
.Cells(torce & morce).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:úlse, Transpose:úlse
End With
Application.CutCopyMode = False
End Sub




"Hicham Oudrhiri"
Bonjour à tous

Private Sub CommandButton1_Click()

Si vous pouvez me dire ou est l'erreur sur ce code
Sheets("Feuil1").Activate
ActiveSheet.Range("B11").Select
Selection.Copy
Sheets("Feuill2").Activate
torce = Sheets("Feuill2").Range("i19").End(xlDown).Offset(0, 1).Address
morce = Sheets("Feuill2").Range("j19").End(xlDown)(2).Address
Range(torce & morce).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:úlse

End sub
Publicité
Poster une réponse
Anonyme