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
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 ç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" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%23sdeaY50HHA.4184@TK2MSFTNGP06.phx.gbl...
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.
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.
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" <jberti@free.fr> a écrit dans le message de news:
%23E2oym50HHA.5152@TK2MSFTNGP02.phx.gbl...
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" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%23sdeaY50HHA.4184@TK2MSFTNGP06.phx.gbl...
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.
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.
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" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
ekIoGU60HHA.4928@TK2MSFTNGP03.phx.gbl...
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" <jberti@free.fr> a écrit dans le message de news:
%23E2oym50HHA.5152@TK2MSFTNGP02.phx.gbl...
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" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%23sdeaY50HHA.4184@TK2MSFTNGP06.phx.gbl...
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.
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.
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" <jberti@free.fr> a écrit dans le message de news:
es8EIv60HHA.5644@TK2MSFTNGP05.phx.gbl...
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" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
ekIoGU60HHA.4928@TK2MSFTNGP03.phx.gbl...
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" <jberti@free.fr> a écrit dans le message de news:
%23E2oym50HHA.5152@TK2MSFTNGP02.phx.gbl...
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" <nospam.bruno.jeune@wanadoo.fr> a écrit dans le message de news:
%23sdeaY50HHA.4184@TK2MSFTNGP06.phx.gbl...
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.
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
Berti c'est d'origine italienne ??
A+
"Jean Berti" <jberti@free.fr> a écrit dans le message de
news:eYwEmJ50HHA.5764@TK2MSFTNGP03.phx.gbl...
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
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