Archivage
Résolu
joeloue
-
joeloue -
joeloue -
Bonjour,
je voudrais archiver les données prendre les données de ma feuille FDF et l archiver sur ma feuille nommé archivage FDF ca bloque au niveau d archiver plusieurs cellules dans la colonne E
'CREATION DE BOUCLE
For Each Item In Sheets("FDF").Range("B8:B10")
If Item.Value = "" Then
Else
ligneB = Item.Row
ligneA = Sheets("ARCHIVAGE FDF").Range("A1").End(xlDown).Row + 1
'MsgBox (ligne) positionner le debut de l archivage
'ici il faut aller chercher l element dans la feuilles fdf ce positionner dans la cellule
Sheets("ARCHIVAGE FDF").Range("A" & ligneA).Value = Sheets("FDF").Range("I3").Value
Sheets("ARCHIVAGE FDF").Range("B" & ligneA).Value = Sheets("FDF").Range("I2").Value
Sheets("ARCHIVAGE FDF").Range("I" & ligneA).Value = Sheets("FDF").Range("D41").Value
Sheets("ARCHIVAGE FDF").Range("J" & ligneA).Value = Sheets("FDF").Range("D44").Value
Sheets("ARCHIVAGE FDF").Range("K" & ligneA).Value = Sheets("FDF").Range("D37").Value
' pour incimenter le numero
la sa marche pas
Sheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B8" & ligneB).Value
Sheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B9" & ligneB).Value
End If
Next Item
je voudrais archiver les données prendre les données de ma feuille FDF et l archiver sur ma feuille nommé archivage FDF ca bloque au niveau d archiver plusieurs cellules dans la colonne E
'CREATION DE BOUCLE
For Each Item In Sheets("FDF").Range("B8:B10")
If Item.Value = "" Then
Else
ligneB = Item.Row
ligneA = Sheets("ARCHIVAGE FDF").Range("A1").End(xlDown).Row + 1
'MsgBox (ligne) positionner le debut de l archivage
'ici il faut aller chercher l element dans la feuilles fdf ce positionner dans la cellule
Sheets("ARCHIVAGE FDF").Range("A" & ligneA).Value = Sheets("FDF").Range("I3").Value
Sheets("ARCHIVAGE FDF").Range("B" & ligneA).Value = Sheets("FDF").Range("I2").Value
Sheets("ARCHIVAGE FDF").Range("I" & ligneA).Value = Sheets("FDF").Range("D41").Value
Sheets("ARCHIVAGE FDF").Range("J" & ligneA).Value = Sheets("FDF").Range("D44").Value
Sheets("ARCHIVAGE FDF").Range("K" & ligneA).Value = Sheets("FDF").Range("D37").Value
' pour incimenter le numero
la sa marche pas
Sheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B8" & ligneB).Value
Sheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B9" & ligneB).Value
End If
Next Item
Configuration: Windows / Chrome 86.0.4240.183
3 réponses
-
Bonjour,
Normal, vous forcez la ligne 8 et y ajoutez la ligneB,
Sheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B8" & ligneB).Value
voici la bonne syntaxeSheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B" & ligneB).Value
Dans votre code (corrigé),Sheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B" & ligneB).Value Sheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B" & ligneB).Value
Le résultat de la dernière ligne écrase celui de la première, donc il y en a une en trop.
Cdlt -
la Cellule ("E" & LigneA )va recevoir successivement Sheets("FDF").Range("B" & ligneB) puis Sheets("FDF").Range("B" & ligneB), donc le résultat retenu sera uniquement la seconde.
A moins que vous vouliez les 2 valeurs dans la même cellule, alors à ce compte là:Sheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B" & ligneB).Value & ", " & Sheets("FDF").Range("B" & ligneB +1).Value
ou si vous voulez impérativement B8 et B9Sheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B8").Value & ", " & Sheets("FDF").Range("B9").Value
Mais est-ce bien cela? -
