Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel décalage ds colonne

décalage ds colonne

5 réponses
Avatar
Kic
bonjour

je veux mettre une valeur dans a2
mais il y a déja une valeur donc il faut la mettre dans a3
mais il y a déja une valeur donc il faut la mettre dans a4
et ainsi de suite jusqu' à trouver une cellule vide dan la même colonne.

u=2
test
if range (cells(u,"a")).select = " " then
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
else
u=u+1
goto test


est-ce cohérent?

merci
a+
Signaler un problème avec ce contenu

5 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
JLuc
*Bonjour Kic*,
Utilise :
Range("A" & Range("A65536").End(xlup).Row + 1) = ...

bonjour

je veux mettre une valeur dans a2
mais il y a déja une valeur donc il faut la mettre dans a3
mais il y a déja une valeur donc il faut la mettre dans a4
et ainsi de suite jusqu' à trouver une cellule vide dan la même colonne.

u=2
test
if range (cells(u,"a")).select = " " then
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
else
u=u+1
goto test


est-ce cohérent?

merci
a+


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
Kic
je ni arrive pas.

For i = 2 To 6
Range(Cells(i, 3), Cells(i, 5)).Select 'on sélectionne les
cellules
Selection.Copy 'on copie les
valeurs
Workbooks.Open Filename:= _
"C:Documents and SettingsEricMes documents85d85" & Range("B" &
i) & ".xls" 'on ouvre le fichier correspondant à la ligne
Range ("A" & Range("A65536").End(xlUp).Row + 1) ActiveSheet.Paste 'on colle les
valeurs
Application.CutCopyMode = False
ActiveWorkbook.Save 'on sauvegarde le
fichier
ActiveWorkbook.Close 'on ferme le
fichier
Next i

merci
a+
kic


"JLuc" a écrit dans le message de news:

*Bonjour Kic*,
Utilise :
Range("A" & Range("A65536").End(xlup).Row + 1) = ...

bonjour

je veux mettre une valeur dans a2
mais il y a déja une valeur donc il faut la mettre dans a3
mais il y a déja une valeur donc il faut la mettre dans a4
et ainsi de suite jusqu' à trouver une cellule vide dan la même colonne.

u=2
test
if range (cells(u,"a")).select = " " then
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
else
u=u+1
goto test


est-ce cohérent?

merci
a+


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
JLuc
*Bonjour Kic*,

For i = 2 To 6
Range(Cells(i, 3), Cells(i, 5)).Copy 'on copie les valeurs
Set Wk = Workbooks.Open Filename:= _
"C:Documents and SettingsEricMes documents85d85" & _
Range("B" & i) & ".xls" 'on ouvre le fichier correspondant à la
ligne
Wk.ActiveSheet.Range("A" & Range("A65536").End(xlUp).Row + 1).Paste
Application.CutCopyMode = False
Wk.Save 'on sauvegarde le fichier
Wk.Close 'on ferme le fichier
Next i

Essaie comme ca

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O
Avatar
Kic
VB me provoque une erreur sur:

Set Wk = Workbooks.Open Filename:= _
"C:Documents and SettingsEricMes documents85d85" & _
Range("B" & i) & ".xls"


"JLuc" a écrit dans le message de news:

*Bonjour Kic*,

For i = 2 To 6
Range(Cells(i, 3), Cells(i, 5)).Copy 'on copie les valeurs
Set Wk = Workbooks.Open Filename:= _
"C:Documents and SettingsEricMes documents85d85" & _
Range("B" & i) & ".xls" 'on ouvre le fichier correspondant à la ligne
Wk.ActiveSheet.Range("A" & Range("A65536").End(xlUp).Row + 1).Paste
Application.CutCopyMode = False
Wk.Save 'on sauvegarde le fichier
Wk.Close 'on ferme le fichier
Next i

Essaie comme ca

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O




Avatar
Daniel
Bonjour.
Quel est le message d'erreur, quelle est la valeur de i au moment de
l'erreur, quel est le contenu de la cellule Range("B" & i), le fichier
Range("B" & i) & ".xls" existe-t-il dans le répertoire C:Documents and
SettingsEricMes documents85d85 ?
Cordialement.
Daniel
"Kic" a écrit dans le message de news:
447888da$0$13061$
VB me provoque une erreur sur:

Set Wk = Workbooks.Open Filename:= _
"C:Documents and SettingsEricMes documents85d85" & _
Range("B" & i) & ".xls"


"JLuc" a écrit dans le message de news:

*Bonjour Kic*,

For i = 2 To 6
Range(Cells(i, 3), Cells(i, 5)).Copy 'on copie les valeurs
Set Wk = Workbooks.Open Filename:= _
"C:Documents and SettingsEricMes documents85d85" & _
Range("B" & i) & ".xls" 'on ouvre le fichier correspondant à la ligne
Wk.ActiveSheet.Range("A" & Range("A65536").End(xlUp).Row + 1).Paste
Application.CutCopyMode = False
Wk.Save 'on sauvegarde le fichier
Wk.Close 'on ferme le fichier
Next i

Essaie comme ca

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O