Archivage

Résolu/Fermé

joeloue - 9 nov. 2020 à 06:01
joeloue - 9 nov. 2020 à 11:50

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

A voir également:

Archivage
Logiciel archivage photo - Guide
Effet archivage whatsapp - Guide
Logiciel d'archivage de documents gratuit - Télécharger - Bureautique
Archivage sms - Guide
Archivage automatique outlook - Guide

3 réponses

Réponse 1 / 3

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
Modifié le 9 nov. 2020 à 07:23

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

Joeloue
9 nov. 2020 à 08:04

Merci pour ce detail je veux archiver les donnees des celules B8 B9 sur la cellule E

joeloue
9 nov. 2020 à 11:50

les deux sont dans la même cellule est il possible de les mettre en ordre!

Réponse 2 / 3

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
9 nov. 2020 à 08:41

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?

Réponse 3 / 3

joeloue
Modifié le 9 nov. 2020 à 11:38

oui les deux valeurs B8;B9 dans la même colonne
merci je testes

Discussions similaires

Desarchivage calendrier Outlook

sauvegarder ses mails depuis la messagerie d'orange vers un ordi

Logiciel d'Archivage gratuit

[Excel] Archivage d'une ligne de données.

Discussions similaires

Newsletters