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
DanielCo
Bonjour. En supposant que ton tableau est seul sur la feuille :
Sub test3() Dim DerCol As Integer With Sheets("Feuil2") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil3").[A1] End With End Sub
NB. Change les noms de feuille. Daniel
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
Bonjour.
En supposant que ton tableau est seul sur la feuille :
Sub test3()
Dim DerCol As Integer
With Sheets("Feuil2")
DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column - 1
.Columns(DerCol).Resize(, 2).Copy Sheets("Feuil3").[A1]
End With
End Sub
NB. Change les noms de feuille.
Daniel
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes
macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de
mon tableau et les recopie sur une nouvelle feuille.
Bonjour. En supposant que ton tableau est seul sur la feuille :
Sub test3() Dim DerCol As Integer With Sheets("Feuil2") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil3").[A1] End With End Sub
NB. Change les noms de feuille. Daniel
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
romanroman
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie
mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes
de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3()
Sheets("List_Frame_1").Select
Sheets.Add
Dim DerCol As Integer
With Sheets("List_Frame_1")
DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1
.Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1]
End With
End Sub
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
DanielCo
Bonjour. Je mérite des claques ! Mets : DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Note que tu ajoutes une feuille mais que tu ne copies les données dessus; c'est peut-être normal ? Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
Bonjour.
Je mérite des claques !
Mets :
DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column - 1
Note que tu ajoutes une feuille mais que tu ne copies les données
dessus; c'est peut-être normal ?
Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie
mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes
de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non
définie" qui apparaît.
Sub test3()
Sheets("List_Frame_1").Select
Sheets.Add
Dim DerCol As Integer
With Sheets("List_Frame_1")
DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column
- 1
.Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1]
End With
End Sub
Bonjour. Je mérite des claques ! Mets : DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Note que tu ajoutes une feuille mais que tu ne copies les données dessus; c'est peut-être normal ? Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
romanroman
DanielCo a écrit le 04/01/2011 à 12h28 :
Bonjour. Je mérite des claques ! Mets : DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Note que tu ajoutes une feuille mais que tu ne copies les données dessus; c'est peut-être normal ? Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
Je te remercie Daniel.
Je t'explique, je fais une macro qui recopie les deux dernieres colonnes d'un tableau sur une feuille que je rajoute.
Je vois pas la difference de ce nouveau code.
Merci
DanielCo a écrit le 04/01/2011 à 12h28 :
Bonjour.
Je mérite des claques !
Mets :
DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column - 1
Note que tu ajoutes une feuille mais que tu ne copies les données
dessus; c'est peut-être normal ?
Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui
vérifie
mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières
colonnes
de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with
non
définie" qui apparaît.
Sub test3()
Sheets("List_Frame_1").Select
Sheets.Add
Dim DerCol As Integer
With Sheets("List_Frame_1")
DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column
- 1
.Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1]
End With
End Sub
Je te remercie Daniel.
Je t'explique, je fais une macro qui recopie les deux dernieres colonnes d'un tableau sur une feuille que je rajoute.
Bonjour. Je mérite des claques ! Mets : DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Note que tu ajoutes une feuille mais que tu ne copies les données dessus; c'est peut-être normal ? Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
Je te remercie Daniel.
Je t'explique, je fais une macro qui recopie les deux dernieres colonnes d'un tableau sur une feuille que je rajoute.
Je vois pas la difference de ce nouveau code.
Merci
DanielCo
DanielCo a écrit le 04/01/2011 à 12h28 :
Bonjour. Je mérite des claques ! Mets : DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Note que tu ajoutes une feuille mais que tu ne copies les données dessus; c'est peut-être normal ? Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
Je te remercie Daniel.
Je t'explique, je fais une macro qui recopie les deux dernieres colonnes d'un tableau sur une feuille que je rajoute.
Je vois pas la difference de ce nouveau code.
Merci
Le point devant Cells: DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 au lieu de : DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Daniel
DanielCo a écrit le 04/01/2011 à 12h28 :
Bonjour.
Je mérite des claques !
Mets :
DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column - 1
Note que tu ajoutes une feuille mais que tu ne copies les données
dessus; c'est peut-être normal ?
Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui
vérifie
mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières
colonnes
de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with
non
définie" qui apparaît.
Sub test3()
Sheets("List_Frame_1").Select
Sheets.Add
Dim DerCol As Integer
With Sheets("List_Frame_1")
DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column
- 1
.Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1]
End With
End Sub
Je te remercie Daniel.
Je t'explique, je fais une macro qui recopie les deux dernieres colonnes d'un
tableau sur une feuille que je rajoute.
Je vois pas la difference de ce nouveau code.
Merci
Le point devant Cells:
DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column - 1
au lieu de :
DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column - 1
Daniel
Bonjour. Je mérite des claques ! Mets : DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Note que tu ajoutes une feuille mais que tu ne copies les données dessus; c'est peut-être normal ? Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
Je te remercie Daniel.
Je t'explique, je fais une macro qui recopie les deux dernieres colonnes d'un tableau sur une feuille que je rajoute.
Je vois pas la difference de ce nouveau code.
Merci
Le point devant Cells: DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 au lieu de : DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Daniel
romanroman
DanielCo a écrit le 04/01/2011 à 15h10 :
DanielCo a écrit le 04/01/2011 à 12h28 :
Bonjour. Je mérite des claques ! Mets : DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Note que tu ajoutes une feuille mais que tu ne copies les données dessus; c'est peut-être normal ? Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
Je te remercie Daniel.
Je t'explique, je fais une macro qui recopie les deux dernieres colonnes d'un tableau sur une feuille que je rajoute.
Je vois pas la difference de ce nouveau code.
Merci
Le point devant Cells: DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 au lieu de : DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Daniel
Bonjour à tous,
Je n'arrive toujours pas à faire marcher cette petite macro.
Je sais pas ce que ça donne chez vous, mais je suis surpris des messages d'erreur.
Merci
Cordialement
DanielCo a écrit le 04/01/2011 à 15h10 :
DanielCo a écrit le 04/01/2011 à 12h28 :
Bonjour.
Je mérite des claques !
Mets :
DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column - 1
Note que tu ajoutes une feuille mais que tu ne copies les données
dessus; c'est peut-être normal ?
Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui
vérifie
mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières
colonnes
de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc
with
non
définie" qui apparaît.
Sub test3()
Sheets("List_Frame_1").Select
Sheets.Add
Dim DerCol As Integer
With Sheets("List_Frame_1")
DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column
- 1
.Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1]
End With
End Sub
Je te remercie Daniel.
Je t'explique, je fais une macro qui recopie les deux dernieres colonnes d'un
tableau sur une feuille que je rajoute.
Je vois pas la difference de ce nouveau code.
Merci
Le point devant Cells:
DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column - 1
au lieu de :
DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns,
xlPrevious).Column - 1
Daniel
Bonjour à tous,
Je n'arrive toujours pas à faire marcher cette petite macro.
Je sais pas ce que ça donne chez vous, mais je suis surpris des messages d'erreur.
Bonjour. Je mérite des claques ! Mets : DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Note que tu ajoutes une feuille mais que tu ne copies les données dessus; c'est peut-être normal ? Daniel
romanroman a écrit le 03/01/2011 à 17h42 :
Bonjour à tous,
Je suis actuellement en train de vouloir finaliser une macro qui vérifie mes macros précedentes.
Pour ce faire, je cherche un code qui trouve les deux denières colonnes de mon tableau et les recopie sur une nouvelle feuille.
Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
Je te remercie Daniel.
Je t'explique, je fais une macro qui recopie les deux dernieres colonnes d'un tableau sur une feuille que je rajoute.
Je vois pas la difference de ce nouveau code.
Merci
Le point devant Cells: DerCol = .Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 au lieu de : DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).Column - 1 Daniel
Bonjour à tous,
Je n'arrive toujours pas à faire marcher cette petite macro.
Je sais pas ce que ça donne chez vous, mais je suis surpris des messages d'erreur.
Merci
Cordialement
DanielCo
Bonjour. Regarde le classeur : http://cjoint.com/?0bfmxqxiXDE Daniel
Bonjour.
Regarde le classeur :
http://cjoint.com/?0bfmxqxiXDE
Daniel
Bonjour. Regarde le classeur : http://cjoint.com/?0bfmxqxiXDE Daniel
LSteph
Bonjour,
Sub Macro1() Dim myC As Long, i As Long
For i = Rows.Count To 1 Step -1 With Rows(i).Cells myC = WorksheetFunction.Max(myC, .Item(.Count).End(xlToLeft).Column) End With Next Range(Columns(myC), Columns(myC - 1)).Cells.Copy Sheets("Feuil1").Activate [a1].PasteSpecial Paste:=xlPasteValues End Sub
'-- 'LSteph
On 4 jan, 12:21, romanroman wrote:
romanroman a écrit le 03/01/2011 à 17h42 :> Bonjour à tous,
> Je suis actuellement en train de vouloir finaliser une macro qui véri fie > mes macros précedentes.
> Pour ce faire, je cherche un code qui trouve les deux denières colonn es > de mon tableau et les recopie sur une nouvelle feuille.
> Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).C olumn - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub
Bonjour,
Sub Macro1()
Dim myC As Long, i As Long
For i = Rows.Count To 1 Step -1
With Rows(i).Cells
myC = WorksheetFunction.Max(myC, .Item(.Count).End(xlToLeft).Column)
End With
Next
Range(Columns(myC), Columns(myC - 1)).Cells.Copy
Sheets("Feuil1").Activate
[a1].PasteSpecial Paste:=xlPasteValues
End Sub
'--
'LSteph
On 4 jan, 12:21, romanroman <romanro...@domain-xyz.in> wrote:
romanroman a écrit le 03/01/2011 à 17h42 :> Bonjour à tous,
> Je suis actuellement en train de vouloir finaliser une macro qui véri fie
> mes macros précedentes.
> Pour ce faire, je cherche un code qui trouve les deux denières colonn es
> de mon tableau et les recopie sur une nouvelle feuille.
> Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non
définie" qui apparaît.
Sub test3()
Sheets("List_Frame_1").Select
Sheets.Add
Dim DerCol As Integer
With Sheets("List_Frame_1")
DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).C olumn -
1
.Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1]
End With
End Sub
For i = Rows.Count To 1 Step -1 With Rows(i).Cells myC = WorksheetFunction.Max(myC, .Item(.Count).End(xlToLeft).Column) End With Next Range(Columns(myC), Columns(myC - 1)).Cells.Copy Sheets("Feuil1").Activate [a1].PasteSpecial Paste:=xlPasteValues End Sub
'-- 'LSteph
On 4 jan, 12:21, romanroman wrote:
romanroman a écrit le 03/01/2011 à 17h42 :> Bonjour à tous,
> Je suis actuellement en train de vouloir finaliser une macro qui véri fie > mes macros précedentes.
> Pour ce faire, je cherche un code qui trouve les deux denières colonn es > de mon tableau et les recopie sur une nouvelle feuille.
> Merci par avance.
RE Bonjour,
je fais suite au post d'hier, j'ai mis ce code mais ça ne marche pas.
J'ai donc ce code et le message "variable objet ou variable de bloc with non définie" qui apparaît.
Sub test3() Sheets("List_Frame_1").Select Sheets.Add Dim DerCol As Integer With Sheets("List_Frame_1") DerCol = Cells.Find("*", [A1], xlFormulas, , xlByColumns, xlPrevious).C olumn - 1 .Columns(DerCol).Resize(, 2).Copy Sheets("Feuil1").[A1] End With End Sub