modifier formule

[pizzaman]

Bonjour à tous,

J'ai besoin de modifier cette formule qui prend mes données de la feuil1 pour les mettres à la suite de la colone A de la feuil4,
et il faudrait plutot qu'elle mettes ces données sur la première colone libre de la feuil4

Feuil1.Range("B10:B" & Feuil1.Range("B100").End(xlUp).Row).Copy Feuil4.Range("A100").End(xlUp).Offset(1, 0)

Ca ne doit pas etre bien compliqué mais je n'y arrive pas

Merci d'avance

 

[Habitude]

Re : modifier formule

Peut-être comme ceci

Feuil1.Range(Cells(10, Feuil1.Range("BA10").End(xlToLeft).Column), Cells(Feuil1.Range("B100").End(xlUp).Row, Feuil1.Range("BA10").End(xlToLeft).Column)).Copy Feuil4.Range("A100").End(xlUp).Offset(1, 0)

 

[pizzaman]

Re : modifier formule

non ca ne fonctionne pas
ca m'ecrit 5,5 dans la colone A de la feuil4, mais je ne sais meme pas à quoi ca correspond

n'y a t-il pas possibilité de changer juste la fin de la formule, pour que ca ecrit dans la première colone vide au lieu de la première ligne vide?

 

[pizzaman]

Re : modifier formule

J'ai mis un petit fichier pour mieux expliquer ce dont j'ai besoin

Merci

 

[Habitude]

Re : modifier formule

Mon excel 2003 refuse de convertir le fichier

Envoie un fichier version 2003

 

[supernov3]

Re : modifier formule

Bonjour, je tenterai :

Feuil1.Range("B10:B" & Feuil1.Range("B100").End(xlUp).Row).Copy Feuil4.Range("IV1").End(xlToLeft).Offset(0, 1)

 

[smotty]

Re : modifier formule

Bonjour,

Voici une solution

Private Sub CommandButton1_Click()
    Dim C As Long
    
    C = Feuil4.[XFD1].End(xlToLeft).Column
    
    If C >= 1 Then C = C + 1
    
    Feuil1.Range("B10:B" & Feuil1.Range("B100").End(xlUp).Row).Copy Feuil4.Cells(1, C)

End Sub

cdt

OOPS SUPERNOV3, je n'avais pas vu ta réponse!

smotty

 

[supernov3]

Re : modifier formule

OOPS SUPERNOV3, je n'avais pas vu ta réponse!

Bonjour smotty,

Pas grave, meiux vaux deux réponses quaucune! D'autant plus que nous proposons la même chose 😛

 

[pizzaman]

Re : modifier formule

Super vos 2 formules fonctionnent, mais dans ce cas ca ecrit dans la colone A, puis la B, la C... et si par exemple la B s'efface, est il possible qu'elle ecrive les données dans celle ci plutot que dans la D?

Merci beaucoup 🙂

 

[pizzaman]

Re : modifier formule

😕

 

[Efgé]

Re : modifier formule

Bonjour au fil
Sur la proposition de smotty,
Remplacer :

C = Feuil4.[XFD1].End(xlToLeft).Column

Par

C = Feuil4.Range("A1").End(xlToRight).Column

Cordialement

 

[smotty]

Re : modifier formule

Bonjour Efgé, Pizzaman,

La solution de Efgé

Private Sub CommandButton1_Click()
Dim C As Range

Set C = Feuil4.Rows(1).Find("")


Feuil1.Range("B10:B" & Feuil1.Range("B100").End(xlUp).Row).Copy C

End Sub

La solution avec xltoright ne me parait pas très bien fonctionner selon les cas.

cdt

smotty

 

[Efgé]

Re : modifier formule

Re
Exact, voici une proposition qui semble prendre tous les cas en compte et valable pour 2003 et 2007 et peut être même 2010.

[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
    C = Feuil4.Cells(1, 1).End(xlToRight).Column + 1
    [COLOR=blue]If[/COLOR] C > Application.Columns.Count [COLOR=blue]Then[/COLOR] C = Sheets("Feuil4").Cells(1, Application.Columns.Count).End(xlToLeft).Column + 1
    [COLOR=blue]If[/COLOR] Sheets("Feuil4").Cells(1, 1) = "" [COLOR=blue]Then[/COLOR] C = 1
    Feuil1.Range("B10:B" & Feuil1.Range("B" & Application.Rows.Count).End(xlUp).Row).Copy Feuil4.Cells(1, C)
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[pizzaman]

Re : modifier formule

Bonjour Efgé, Pizzaman,

La solution de Efgé



La solution avec xltoright ne me parait pas très bien fonctionner selon les cas.

cdt

smotty

Impeccable avec celle ci, les autres ne fonctionne pas

Grand merci à tous 🙂

 

[Efgé]

Re : modifier formule

Re à tous,
J"aurais quand même bien aimé savoir où mon code plante...
Cordialement