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

erreur de syntaxe

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

"GROS PROBLEME"

Merci d'avance de votre aide

dur l'apprentissage VBA!!!

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

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

Youky
Avatar
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" a écrit dans le message de news:
%
Salut Jean
On copie toute la ligne

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

Youky



Avatar
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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
%
Salut Jean
On copie toute la ligne

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

Youky







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

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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
%
Salut Jean
On copie toute la ligne

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

Youky











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

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

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" a écrit dans le message de news:
%
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" a écrit dans le message de news:
%
Salut Jean
On copie toute la ligne

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

Youky















Avatar
Etorria
Berti c'est d'origine italienne ??

A+

"Jean Berti" a écrit dans le message de
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