modifier un code

Question

bonjour je souhaiterai modifier le code suivant qui est destiné à exporter des données d'une feuille (qui supporte le code )vers une autre feuille nommée (RESEAU) en definissant une plage 
pour la colonne receptrice qui est la colonne B  , par exemple je souhaite que mes données soient importés sur la feuille nommée RESEAU entre les cellules B21 et B100 ,puis lorsque la cellule B100 est atteinte pouvoir remonter en cellule B21 pour recevoir la donnée suivante  

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range("A2:A10000"), Target) Is Nothing And Target.Count = 1 Then
    With Sheets("RESEAU").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
      .Value = Target
      .NumberFormat = Target.NumberFormat
    End With
  End If
End Sub

parce que ce code  produit qu'une longue liste de donnée illimitée sur la colonne B de la feuille RESEAU  
Merci pour votre aide 

a++

ucfoutu · Answer

Bonjour, rocket,
1) "Modifier un code" n'est certes pas un titre révélateur d'un problème spécifique !
2) (et cela t'a déjà été dit) : utilise s'il te plait l'indentation de ton code et sa présentation mise en forme sur ce forum à l'aide des balises code.
Difficile d'accepter de t'aider si tu ne respectes pas ces deux disciplines !



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

rocket4 · Answer

voila , 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A2:A10000"), Target) Is Nothing And Target.Count = 1 Then
With Sheets("RESEAU").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
.Value = Target
.NumberFormat = Target.NumberFormat
End With
End If
End Sub 


Merci pour vos réponses

Modifier un code

2 réponses

Votre réponse

Discussions similaires