Archivage [Résolu]

Signaler
-
 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




Configuration: Windows / Chrome 86.0.4240.183

3 réponses

Messages postés
2200
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
3 mars 2021
320
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 syntaxe
Sheets("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
Merci pour ce detail je veux archiver les donnees des celules B8 B9 sur la cellule E
les deux sont dans la même cellule est il possible de les mettre en ordre!
Messages postés
2200
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
3 mars 2021
320
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 B9
Sheets("ARCHIVAGE FDF").Range("E" & ligneA).Value = Sheets("FDF").Range("B8").Value & ", " &  Sheets("FDF").Range("B9").Value


Mais est-ce bien cela?
oui les deux valeurs B8;B9 dans la même colonne
merci je testes