erreur de syntaxe

Le
Jean Berti
Bonjour à tous
Range("Feuil1!A3:" & [Feuil1!A3].End(xlToRight).Address).Copy
Range("Feuil2!A" & [Feuil2!A:A].Find("*", , , , xlByRows, xlPrevious).Row +
1)

ça fonctionne très bien , mais quand je veux copier les valeurs uniquement
avec:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:úlse, Transpose:úlse

"GROS PROBLEME"

Merci d'avance de votre aide

dur l'apprentissage VBA!!!

Jean Berti
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
Youky
Le #4814031
Salut Jean
On copie toute la ligne

Feuil2.Rows([Feuil2!A65536].End(3).Row + 1).Value = Feuil1.Rows(3).Value

Youky
Jean Berti
Le #4813981
Salut Youky

Merci ça baigne
mais comment rajouter
Selection.NumberFormat = "0.00"
HorizontalAlignment = xlCenter
With Selection.Font
.Name = "Tahoma"
.Size = 7
je l'ai mis juste aprés ton code , mais vba ne le prend pas.

Merci encore

Jean Berti

"Youky" %
Salut Jean
On copie toute la ligne

Feuil2.Rows([Feuil2!A65536].End(3).Row + 1).Value = Feuil1.Rows(3).Value

Youky



Youky
Le #4813891
lig = Feuil2.Range("A65536").End(3).Row
adr = Feuil2.Range("IV" & lig).End(xlToLeft).Address
With Feuil2.Range("A" & lig & ":" & adr)
.NumberFormat = "0.00"
.HorizontalAlignment = xlCenter
.Font.Name = "Tahoma"
.Font.Size = 7
End With

Feuil2.Range... J'utilise le codename de la feuille et non le nom de
l'onglet
alors que ...[Feuil2!A1] utilise le nom de l'onglet
Sheets("Mytruc") idem
Avantage d'utiliser le codename >si l'utilisateur s'amuse à renommer tes
feuilles
la macro plante alors donc il est plus judicieux d'utiliser le codename
Ce CodeName peut être modifié à ta guise dans les propriétées de la feuille
Youky


"Jean Berti" %
Salut Youky

Merci ça baigne
mais comment rajouter
Selection.NumberFormat = "0.00"
HorizontalAlignment = xlCenter
With Selection.Font
.Name = "Tahoma"
.Size = 7
je l'ai mis juste aprés ton code , mais vba ne le prend pas.

Merci encore

Jean Berti

"Youky" %
Salut Jean
On copie toute la ligne

Feuil2.Rows([Feuil2!A65536].End(3).Row + 1).Value = Feuil1.Rows(3).Value

Youky







Jean Berti
Le #4813861
Re
VBA me met une erreur sur cette ligne?
adr = Feuil2.Range("IV" & lig).End(xlToLeft).Address

et comme je ne comprends pas grand chose.....

Merci YOUKI

Jean Berti
"Youky"
lig = Feuil2.Range("A65536").End(3).Row
adr = Feuil2.Range("IV" & lig).End(xlToLeft).Address
With Feuil2.Range("A" & lig & ":" & adr)
.NumberFormat = "0.00"
.HorizontalAlignment = xlCenter
.Font.Name = "Tahoma"
.Font.Size = 7
End With

Feuil2.Range... J'utilise le codename de la feuille et non le nom de
l'onglet
alors que ...[Feuil2!A1] utilise le nom de l'onglet
Sheets("Mytruc") idem
Avantage d'utiliser le codename >si l'utilisateur s'amuse à renommer tes
feuilles
la macro plante alors donc il est plus judicieux d'utiliser le codename
Ce CodeName peut être modifié à ta guise dans les propriétées de la
feuille
Youky


"Jean Berti" %
Salut Youky

Merci ça baigne
mais comment rajouter
Selection.NumberFormat = "0.00"
HorizontalAlignment = xlCenter
With Selection.Font
.Name = "Tahoma"
.Size = 7
je l'ai mis juste aprés ton code , mais vba ne le prend pas.

Merci encore

Jean Berti

"Youky" %
Salut Jean
On copie toute la ligne

Feuil2.Rows([Feuil2!A65536].End(3).Row + 1).Value = Feuil1.Rows(3).Value

Youky











Youky
Le #4813851
La macro doit fonctionner quelque soit la version XLS
sinon rajoute en 1ere ligne de la macro
Dim adr As String

Ou une autre façon de faire...........
celle-ci fait sur toute la ligne alors que la précédente fait au minimum de
la ligne
Youky

With Feuil2.Rows(Feuil2.Range("A65536").End(3).Row)
.NumberFormat = "0.00"
.HorizontalAlignment = xlCenter
.Font.Name = "Tahoma"
.Font.Size = 7
End With

"Jean Berti"
Re
VBA me met une erreur sur cette ligne?
adr = Feuil2.Range("IV" & lig).End(xlToLeft).Address

et comme je ne comprends pas grand chose.....

Merci YOUKI

Jean Berti
"Youky"
lig = Feuil2.Range("A65536").End(3).Row
adr = Feuil2.Range("IV" & lig).End(xlToLeft).Address
With Feuil2.Range("A" & lig & ":" & adr)
.NumberFormat = "0.00"
.HorizontalAlignment = xlCenter
.Font.Name = "Tahoma"
.Font.Size = 7
End With

Feuil2.Range... J'utilise le codename de la feuille et non le nom de
l'onglet
alors que ...[Feuil2!A1] utilise le nom de l'onglet
Sheets("Mytruc") idem
Avantage d'utiliser le codename >si l'utilisateur s'amuse à renommer tes
feuilles
la macro plante alors donc il est plus judicieux d'utiliser le codename
Ce CodeName peut être modifié à ta guise dans les propriétées de la
feuille
Youky


"Jean Berti" %
Salut Youky

Merci ça baigne
mais comment rajouter
Selection.NumberFormat = "0.00"
HorizontalAlignment = xlCenter
With Selection.Font
.Name = "Tahoma"
.Size = 7
je l'ai mis juste aprés ton code , mais vba ne le prend pas.

Merci encore

Jean Berti

"Youky" %
Salut Jean
On copie toute la ligne

Feuil2.Rows([Feuil2!A65536].End(3).Row + 1).Value =
Feuil1.Rows(3).Value

Youky















Etorria
Le #4813821
Berti c'est d'origine italienne ??

A+

"Jean Berti" news:
Bonjour à tous
Range("Feuil1!A3:" & [Feuil1!A3].End(xlToRight).Address).Copy
Range("Feuil2!A" & [Feuil2!A:A].Find("*", , , , xlByRows, xlPrevious).Row
+ 1)

ça fonctionne très bien , mais quand je veux copier les valeurs uniquement
avec:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
_
:úlse, Transpose:úlse

"GROS PROBLEME"

Merci d'avance de votre aide

dur l'apprentissage VBA!!!

Jean Berti



Publicité
Poster une réponse
Anonyme