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

stockage et decalage de colonne

8 réponses
Avatar
STEPH B
Bonjour,
Voici un bout de code que j'ai bidouillé mais il ne stock que dans les
colonnes j et k le cas échéant comment
faire pour lui demandé de poursuivre dans l'alphabet?

merci d'avance

Sub stock()
der22 = Cells(Rows.Count, "j").End(3).Row
der22 = der22 + 1
MsgBox (der22)
If der22 < 5000 Then
Range("C1:C480").Select
Selection.Copy
Range("J" & der22).Select
ActiveSheet.Paste
Else

Range("C1:C480").Select
Selection.Copy
Range("k" & der22).Select
ActiveSheet.Paste
End If


End Sub
Signaler un problème avec ce contenu

8 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
Jacky
Bonjour,

La plage "C1:C480" doit être copiée sur combien de colonne à partir de J ???


--
Salutations
JJ


"STEPH B" a écrit dans le message de news:
4bb1c6ac$0$15831$
Bonjour,
Voici un bout de code que j'ai bidouillé mais il ne stock que dans les colonnes j et k le cas échéant
comment
faire pour lui demandé de poursuivre dans l'alphabet?

merci d'avance

Sub stock()
der22 = Cells(Rows.Count, "j").End(3).Row
der22 = der22 + 1
MsgBox (der22)
If der22 < 5000 Then
Range("C1:C480").Select
Selection.Copy
Range("J" & der22).Select
ActiveSheet.Paste
Else

Range("C1:C480").Select
Selection.Copy
Range("k" & der22).Select
ActiveSheet.Paste
End If


End Sub


Avatar
Daniel.C
Bonjour.
Essaie :

Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
Range("C1:C480").Copy Cells(der22, col)
End Sub

Cordialement.
Daniel

Bonjour,
Voici un bout de code que j'ai bidouillé mais il ne stock que dans les
colonnes j et k le cas échéant comment
faire pour lui demandé de poursuivre dans l'alphabet?

merci d'avance

Sub stock()
der22 = Cells(Rows.Count, "j").End(3).Row
der22 = der22 + 1
MsgBox (der22)
If der22 < 5000 Then
Range("C1:C480").Select
Selection.Copy
Range("J" & der22).Select
ActiveSheet.Paste
Else

Range("C1:C480").Select
Selection.Copy
Range("k" & der22).Select
ActiveSheet.Paste
End If


End Sub
Avatar
STEPH B
jusqu'à la colonne P par exemple.
merci d'avance

"Jacky" a écrit dans le message de news:
ep$et%23%
Bonjour,

La plage "C1:C480" doit être copiée sur combien de colonne à partir de J
???


--
Salutations
JJ


"STEPH B" a écrit dans le message de news:
4bb1c6ac$0$15831$
Bonjour,
Voici un bout de code que j'ai bidouillé mais il ne stock que dans les
colonnes j et k le cas échéant comment
faire pour lui demandé de poursuivre dans l'alphabet?

merci d'avance

Sub stock()
der22 = Cells(Rows.Count, "j").End(3).Row
der22 = der22 + 1
MsgBox (der22)
If der22 < 5000 Then
Range("C1:C480").Select
Selection.Copy
Range("J" & der22).Select
ActiveSheet.Paste
Else

Range("C1:C480").Select
Selection.Copy
Range("k" & der22).Select
ActiveSheet.Paste
End If


End Sub






Avatar
STEPH B
merci daniel ton code marche super bien.... merci jacky aussi au passage
juste une petite modification....
en fait je voudrais copier non pas Range("C1:C480").Copy mais toutes les
cellules non vides de la colonne C est ce possible



"Daniel.C" a écrit dans le message de news:
O$nRpA$
Bonjour.
Essaie :

Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
Range("C1:C480").Copy Cells(der22, col)
End Sub

Cordialement.
Daniel

Bonjour,
Voici un bout de code que j'ai bidouillé mais il ne stock que dans les
colonnes j et k le cas échéant comment
faire pour lui demandé de poursuivre dans l'alphabet?

merci d'avance

Sub stock()
der22 = Cells(Rows.Count, "j").End(3).Row
der22 = der22 + 1
MsgBox (der22)
If der22 < 5000 Then
Range("C1:C480").Select
Selection.Copy
Range("J" & der22).Select
ActiveSheet.Paste
Else

Range("C1:C480").Select
Selection.Copy
Range("k" & der22).Select
ActiveSheet.Paste
End If


End Sub




Avatar
Daniel.C
Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
With Range("C:C")
Union(Range("C:C").SpecialCells(xlCellTypeConstants), _
.SpecialCells(xlCellTypeFormulas)).Copy Cells(der22, col)
End With
End Sub

Daniel

merci daniel ton code marche super bien.... merci jacky aussi au passage
juste une petite modification....
en fait je voudrais copier non pas Range("C1:C480").Copy mais toutes les
cellules non vides de la colonne C est ce possible



"Daniel.C" a écrit dans le message de news:
O$nRpA$
Bonjour.
Essaie :

Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
Range("C1:C480").Copy Cells(der22, col)
End Sub

Cordialement.
Daniel

Bonjour,
Voici un bout de code que j'ai bidouillé mais il ne stock que dans les
colonnes j et k le cas échéant comment
faire pour lui demandé de poursuivre dans l'alphabet?

merci d'avance

Sub stock()
der22 = Cells(Rows.Count, "j").End(3).Row
der22 = der22 + 1
MsgBox (der22)
If der22 < 5000 Then
Range("C1:C480").Select
Selection.Copy
Range("J" & der22).Select
ActiveSheet.Paste
Else

Range("C1:C480").Select
Selection.Copy
Range("k" & der22).Select
ActiveSheet.Paste
End If


End Sub




Avatar
STEPH B
j ai un debogage à ce niveau sais tu pourquoi

Union(Range("C:C").SpecialCells(xlCellTypeConstants), _
.SpecialCells(xlCellTypeFormulas)).Copy Cells(der22, col)


merci


"Daniel.C" a écrit dans le message de news:
%238$OJQ$
Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
With Range("C:C")
Union(Range("C:C").SpecialCells(xlCellTypeConstants), _
.SpecialCells(xlCellTypeFormulas)).Copy Cells(der22, col)
End With
End Sub

Daniel

merci daniel ton code marche super bien.... merci jacky aussi au passage
juste une petite modification....
en fait je voudrais copier non pas Range("C1:C480").Copy mais toutes les
cellules non vides de la colonne C est ce possible



"Daniel.C" a écrit dans le message de news:
O$nRpA$
Bonjour.
Essaie :

Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
Range("C1:C480").Copy Cells(der22, col)
End Sub

Cordialement.
Daniel

Bonjour,
Voici un bout de code que j'ai bidouillé mais il ne stock que dans les
colonnes j et k le cas échéant comment
faire pour lui demandé de poursuivre dans l'alphabet?

merci d'avance

Sub stock()
der22 = Cells(Rows.Count, "j").End(3).Row
der22 = der22 + 1
MsgBox (der22)
If der22 < 5000 Then
Range("C1:C480").Select
Selection.Copy
Range("J" & der22).Select
ActiveSheet.Paste
Else

Range("C1:C480").Select
Selection.Copy
Range("k" & der22).Select
ActiveSheet.Paste
End If


End Sub










Avatar
Daniel.C
Si tu n'as pas de formules en colonne C :

Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
With Range("C:C")
.SpecialCells(xlCellTypeConstants).Copy Cells(der22, col)
End With
End Sub

Si tu n'as que des formules en colonne C :

Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
With Range("C:C")
.SpecialCells(xlCellTypeFormulas).Copy Cells(der22, col)
End With
End Sub

Apparemment, tu es dans un des deux cas. Sinon, reviens le dire.
Daniel

j ai un debogage à ce niveau sais tu pourquoi

Union(Range("C:C").SpecialCells(xlCellTypeConstants), _
.SpecialCells(xlCellTypeFormulas)).Copy Cells(der22, col)


merci


"Daniel.C" a écrit dans le message de news:
%238$OJQ$
Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
With Range("C:C")
Union(Range("C:C").SpecialCells(xlCellTypeConstants), _
.SpecialCells(xlCellTypeFormulas)).Copy Cells(der22, col)
End With
End Sub

Daniel

merci daniel ton code marche super bien.... merci jacky aussi au passage
juste une petite modification....
en fait je voudrais copier non pas Range("C1:C480").Copy mais toutes les
cellules non vides de la colonne C est ce possible



"Daniel.C" a écrit dans le message de news:
O$nRpA$
Bonjour.
Essaie :

Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
Range("C1:C480").Copy Cells(der22, col)
End Sub

Cordialement.
Daniel

Bonjour,
Voici un bout de code que j'ai bidouillé mais il ne stock que dans les
colonnes j et k le cas échéant comment
faire pour lui demandé de poursuivre dans l'alphabet?

merci d'avance

Sub stock()
der22 = Cells(Rows.Count, "j").End(3).Row
der22 = der22 + 1
MsgBox (der22)
If der22 < 5000 Then
Range("C1:C480").Select
Selection.Copy
Range("J" & der22).Select
ActiveSheet.Paste
Else

Range("C1:C480").Select
Selection.Copy
Range("k" & der22).Select
ActiveSheet.Paste
End If


End Sub










Avatar
STEPH B
merci ca marche du toner

bravo

"Daniel.C" a écrit dans le message de news:

Si tu n'as pas de formules en colonne C :

Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
With Range("C:C")
.SpecialCells(xlCellTypeConstants).Copy Cells(der22, col)
End With
End Sub

Si tu n'as que des formules en colonne C :

Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
With Range("C:C")
.SpecialCells(xlCellTypeFormulas).Copy Cells(der22, col)
End With
End Sub

Apparemment, tu es dans un des deux cas. Sinon, reviens le dire.
Daniel

j ai un debogage à ce niveau sais tu pourquoi

Union(Range("C:C").SpecialCells(xlCellTypeConstants), _
.SpecialCells(xlCellTypeFormulas)).Copy Cells(der22, col)


merci


"Daniel.C" a écrit dans le message de news:
%238$OJQ$
Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
With Range("C:C")
Union(Range("C:C").SpecialCells(xlCellTypeConstants), _
.SpecialCells(xlCellTypeFormulas)).Copy Cells(der22, col)
End With
End Sub

Daniel

merci daniel ton code marche super bien.... merci jacky aussi au
passage
juste une petite modification....
en fait je voudrais copier non pas Range("C1:C480").Copy mais toutes
les cellules non vides de la colonne C est ce possible



"Daniel.C" a écrit dans le message de news:
O$nRpA$
Bonjour.
Essaie :

Sub stock()
Dim der22 As Integer, col As Integer
col = 10
der22 = Cells(Rows.Count, col).End(3).Row + 1
Do While Application.CountA(Columns(col)) >= 5000
col = col + 1
Loop
der22 = Cells(Rows.Count, col).End(3).Row + 1
Range("C1:C480").Copy Cells(der22, col)
End Sub

Cordialement.
Daniel

Bonjour,
Voici un bout de code que j'ai bidouillé mais il ne stock que dans
les colonnes j et k le cas échéant comment
faire pour lui demandé de poursuivre dans l'alphabet?

merci d'avance

Sub stock()
der22 = Cells(Rows.Count, "j").End(3).Row
der22 = der22 + 1
MsgBox (der22)
If der22 < 5000 Then
Range("C1:C480").Select
Selection.Copy
Range("J" & der22).Select
ActiveSheet.Paste
Else

Range("C1:C480").Select
Selection.Copy
Range("k" & der22).Select
ActiveSheet.Paste
End If


End Sub