Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Erreyr sur code

Erreyr sur code

4 réponses
Avatar
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
_
:=False, Transpose:=False

End sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
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" a écrit dans le message de news:

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




Avatar
isabelle
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




Avatar
MichDenis
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" a écrit dans le message de news:

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
Avatar
MichDenis
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" a écrit dans le message de news:
%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" a écrit dans le message de news:

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