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
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
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
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
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
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
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
Bonjour,
La plage "C1:C480" doit être copiée sur combien de colonne à partir de J
???
--
Salutations
JJ
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4bb1c6ac$0$15831$ba4acef3@reader.news.orange.fr...
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
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
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.
DanielBonjour,
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
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
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.
DanielBonjour,
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
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.
DanielBonjour,
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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
O$nRpA$zKHA.1236@TK2MSFTNGP02.phx.gbl...
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
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.
DanielBonjour,
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
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
Danielmerci 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.
DanielBonjour,
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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
O$nRpA$zKHA.1236@TK2MSFTNGP02.phx.gbl...
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
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
Danielmerci 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.
DanielBonjour,
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
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
Danielmerci 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.
DanielBonjour,
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
j ai un debogage à ce niveau sais tu pourquoi
Union(Range("C:C").SpecialCells(xlCellTypeConstants), _
.SpecialCells(xlCellTypeFormulas)).Copy Cells(der22, col)
merci
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%238$OJQ$zKHA.4492@TK2MSFTNGP05.phx.gbl...
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
O$nRpA$zKHA.1236@TK2MSFTNGP02.phx.gbl...
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
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
Danielmerci 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.
DanielBonjour,
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
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.
Danielj 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
Danielmerci 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.
DanielBonjour,
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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%238$OJQ$zKHA.4492@TK2MSFTNGP05.phx.gbl...
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
O$nRpA$zKHA.1236@TK2MSFTNGP02.phx.gbl...
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
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.
Danielj 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
Danielmerci 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.
DanielBonjour,
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