Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel pourquoi tant de haine....débutant

pourquoi tant de haine....débutant

6 réponses
Avatar
mateos francois
bonjour,
voila je souhaiterai copier des cellules d'une feuil2 vers une feuil1 mais
sans qu'il y ait l'effet de va et viens sous les yeux de l'utilisateur,
c'est possible ? Merci pour votre réponse.

voici le code (qui ne marche pas) :
Sub Macro1()

Dim plage As Object

Set plage = ActiveWorkbook.Sheets("feuil2").Range([B1], [B1].End(xlDown))
'provoque l'erreur 1004
nb = plage.Count
p = 0

For i = 1 To nb
p = p + 1

ActiveWorkbook.Sheets("feuil1").Cells(p, 1).Value =
ActiveWorkbook.Sheets("feuil2").Cells(p, 2).Value

Next

End Sub
Signaler un problème avec ce contenu

6 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
Joël GARBE
Bonjour,

Sub Macro1()
Application.ScreenUpdating = False
Dim plage As Object
Dim Nb As Long
Dim p As Integer
Dim i As Long
Set plage =
ActiveWorkbook.Sheets("feuil2").Range(Sheets("feuil2").Range("B1"),
Sheets("feuil2").Range("B65536").End(xlDown))
'provoque l'erreur 1004
Nb = plage.Count
p = 0

For i = 1 To Nb
p = p + 1

ActiveWorkbook.Sheets("feuil1").Cells(p, 1).Value = _
ActiveWorkbook.Sheets("feuil2").Cells(p, 2).Value

Next

End Sub



--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"mateos francois" a écrit dans le message de news:
41b0dbbd$0$423$
bonjour,
voila je souhaiterai copier des cellules d'une feuil2 vers une feuil1 mais
sans qu'il y ait l'effet de va et viens sous les yeux de l'utilisateur,
c'est possible ? Merci pour votre réponse.

voici le code (qui ne marche pas) :
Sub Macro1()

Dim plage As Object

Set plage = ActiveWorkbook.Sheets("feuil2").Range([B1], [B1].End(xlDown))
'provoque l'erreur 1004
nb = plage.Count
p = 0

For i = 1 To nb
p = p + 1

ActiveWorkbook.Sheets("feuil1").Cells(p, 1).Value > ActiveWorkbook.Sheets("feuil2").Cells(p, 2).Value

Next

End Sub




Avatar
Joël GARBE
ou encore :

Sub Macro2()
Application.ScreenUpdating = False
Dim plage As Object
Set plage =
ActiveWorkbook.Sheets("feuil2").Range(Sheets("feuil2").Range("B1"),
Sheets("feuil2").Range("B65536").End(xlDown))

plage.Copy
ActiveWorkbook.Sheets("feuil1").Range("B1").PasteSpecial xlPasteValues

End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Joël GARBE" a écrit dans le message de news:
41b0dde1$0$11786$
Bonjour,

Sub Macro1()
Application.ScreenUpdating = False
Dim plage As Object
Dim Nb As Long
Dim p As Integer
Dim i As Long
Set plage =
ActiveWorkbook.Sheets("feuil2").Range(Sheets("feuil2").Range("B1"),
Sheets("feuil2").Range("B65536").End(xlDown))
'provoque l'erreur 1004
Nb = plage.Count
p = 0

For i = 1 To Nb
p = p + 1

ActiveWorkbook.Sheets("feuil1").Cells(p, 1).Value = _
ActiveWorkbook.Sheets("feuil2").Cells(p, 2).Value

Next

End Sub



--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"mateos francois" a écrit dans le message de news:
41b0dbbd$0$423$
bonjour,
voila je souhaiterai copier des cellules d'une feuil2 vers une feuil1
mais
sans qu'il y ait l'effet de va et viens sous les yeux de l'utilisateur,
c'est possible ? Merci pour votre réponse.

voici le code (qui ne marche pas) :
Sub Macro1()

Dim plage As Object

Set plage = ActiveWorkbook.Sheets("feuil2").Range([B1], [B1].End(xlDown))
'provoque l'erreur 1004
nb = plage.Count
p = 0

For i = 1 To nb
p = p + 1

ActiveWorkbook.Sheets("feuil1").Cells(p, 1).Value >> ActiveWorkbook.Sheets("feuil2").Cells(p, 2).Value

Next

End Sub








Avatar
michdenis
Bonjour Mateos,

Voici ta procédure avec quelques commentaires !


'-----------------------------------
Sub Macro1()

Dim Plage As Range, Nb As Long

With ActiveWorkbook.Sheets("feuil2")
Set Plage = .Range(.Range("B1"), .Range("B1").End(xlDown))
End With


'Il est préférable que tu ajoutes
'la propriétés que tu veux dénombrer

'Nombre de cellules dans la plage
Nb = Plage.Cells.Count

'Nombre de ligne
'Nb = plage.Rows.Count

'Nombre de colonne
'Nb = plage.Columns.Count


'P.S. IL n'est pas nécessaire de boucler,
' si tes 2 plages sont de mêmes dimensions, tu peux faire ceci :

Plage1 = Plage2 tout simplement


p = 0
'Tu n'as pas besoin du compteur P

For I = 1 To Nb
ActiveWorkbook.Sheets("feuil1").Cells(I, 1).Value = _
ActiveWorkbook.Sheets("feuil2").Cells(I, 2).Value

Next

End Sub
'--------------------------

Salutations!



"mateos francois" a écrit dans le message de news: 41b0dbbd$0$423$
bonjour,
voila je souhaiterai copier des cellules d'une feuil2 vers une feuil1 mais
sans qu'il y ait l'effet de va et viens sous les yeux de l'utilisateur,
c'est possible ? Merci pour votre réponse.

voici le code (qui ne marche pas) :
Sub Macro1()

Dim plage As Object

Set plage = ActiveWorkbook.Sheets("feuil2").Range([B1], [B1].End(xlDown))
'provoque l'erreur 1004
nb = plage.Count
p = 0

For i = 1 To nb
p = p + 1

ActiveWorkbook.Sheets("feuil1").Cells(p, 1).Value ActiveWorkbook.Sheets("feuil2").Cells(p, 2).Value

Next

End Sub
Avatar
Joël GARBE
oups ;-)

en remplaçant B1 par A1
ActiveWorkbook.Sheets("feuil1").Range("A1").PasteSpecial xlPasteValues
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Joël GARBE" a écrit dans le message de news:
41b0deee$0$8101$
ou encore :

Sub Macro2()
Application.ScreenUpdating = False
Dim plage As Object
Set plage =
ActiveWorkbook.Sheets("feuil2").Range(Sheets("feuil2").Range("B1"),
Sheets("feuil2").Range("B65536").End(xlDown))

plage.Copy
ActiveWorkbook.Sheets("feuil1").Range("B1").PasteSpecial xlPasteValues

End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Joël GARBE" a écrit dans le message de news:
41b0dde1$0$11786$
Bonjour,

Sub Macro1()
Application.ScreenUpdating = False
Dim plage As Object
Dim Nb As Long
Dim p As Integer
Dim i As Long
Set plage =
ActiveWorkbook.Sheets("feuil2").Range(Sheets("feuil2").Range("B1"),
Sheets("feuil2").Range("B65536").End(xlDown))
'provoque l'erreur 1004
Nb = plage.Count
p = 0

For i = 1 To Nb
p = p + 1

ActiveWorkbook.Sheets("feuil1").Cells(p, 1).Value = _
ActiveWorkbook.Sheets("feuil2").Cells(p, 2).Value

Next

End Sub



--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"mateos francois" a écrit dans le message de news:
41b0dbbd$0$423$
bonjour,
voila je souhaiterai copier des cellules d'une feuil2 vers une feuil1
mais
sans qu'il y ait l'effet de va et viens sous les yeux de l'utilisateur,
c'est possible ? Merci pour votre réponse.

voici le code (qui ne marche pas) :
Sub Macro1()

Dim plage As Object

Set plage = ActiveWorkbook.Sheets("feuil2").Range([B1],
[B1].End(xlDown))
'provoque l'erreur 1004
nb = plage.Count
p = 0

For i = 1 To nb
p = p + 1

ActiveWorkbook.Sheets("feuil1").Cells(p, 1).Value >>> ActiveWorkbook.Sheets("feuil2").Cells(p, 2).Value

Next

End Sub












Avatar
mateos francois
Merci beaucoups, à vous deux ,
quelle scelerité !!

Bonne soirée.
A+

FM
Avatar
Maître Capello
parle plutôt de célérité mon enfant, réserve scélérité
aux scélérats !!

Maître Capello

-----Original Message-----
Merci beaucoups, à vous deux ,
quelle scelerité !!

Bonne soirée.
A+

FM



.