archivage Résolu/Fermé

Question

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

Frenchie83 · Answer

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

Frenchie83 · Answer

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?

joeloue · Answer

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

Archivage

3 réponses

Discussions similaires