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
A voir également:
- Archivage
- Archivage sms - Guide
- Annuler archivage story instagram - Guide
- Effet archivage whatsapp - Guide
- Logiciel archivage photo - Guide
- Logiciel archivage gratuit - Télécharger - Bureautique
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 syntaxe
Dans votre code (corrigé),
Le résultat de la dernière ligne écrase celui de la première, donc il y en a une en trop.
Cdlt
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
Joeloue
Merci pour ce detail je veux archiver les donnees des celules B8 B9 sur la cellule E
joeloue
les deux sont dans la même cellule est il possible de les mettre en ordre!
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à:
ou si vous voulez impérativement B8 et B9
Mais est-ce bien cela?
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?