stockage et decalage de colonne

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #21465321
Bonjour,

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


--
Salutations
JJ


"STEPH B" 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


Daniel.C
Le #21465311
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
STEPH B
Le #21465301
jusqu'à la colonne P par exemple.
merci d'avance

"Jacky" ep$et%23%
Bonjour,

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


--
Salutations
JJ


"STEPH B" 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






STEPH B
Le #21465291
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" 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




Daniel.C
Le #21465381
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" 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




STEPH B
Le #21465771
j ai un debogage à ce niveau sais tu pourquoi

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


merci


"Daniel.C" %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" 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










Daniel.C
Le #21465851
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" %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" 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










STEPH B
Le #21465971
merci ca marche du toner

bravo

"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" %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" 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
















Publicité
Poster une réponse
Anonyme