Correction d'un code

Fermé

flight7218 Messages postés 13 Date d'inscription dimanche 13 mai 2007 Statut Membre Dernière intervention 12 septembre 2011 - 12 sept. 2011 à 15:23
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 12 sept. 2011 à 16:24

Bonjour,

je souhaite créer une liste sur ma feuille de calcul 1 (colonne partant de la cellule B21 et s'arretant en cellule B63) et ce à partir d'une saisie de cellules se trouvant sur une colonne de ma feuille 2 allant de A2 à A100 , lorsque j'ai remplit la liste de ma feuille 1(arrivé en B63) , je souhaite que la selection suivante recommence en B21 , j'ai ecrit ce bout de code mais il ne marche pas :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range("A2:A100"), Target) Is Nothing And Target.Count = 1 Then
    With Sheets("Feuil1")
      .Range("B21") = IIf(.Range("B21") >= 63, 2, .Range("B21") + 1)
        .Cells(.Range("CB1"), 1) = Target.Value
    End With
  End If
End Sub

MERCI pour toute correction

A voir également:

Correction d'un code
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Comment créer un qr code - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
12 sept. 2011 à 16:24

Bonjour

Pas clair du tout, ta demande !

si à 63 tu recommences en B21 tu remplaceras 37 valeurs (A2:A38) par les valeurs de A64:A100 ?
quand tu dis
Range("B21") >= 63 tu veux parler de la ligne ou la valeur affectée à B21 ?
tu écris
range("CB1") ques aco ? tu n"en parles pas dans ton topo
et cells(.range("CB1"),1) concerne la colonne 1 , cad la colonne A...

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Acces à snapchat temporairement désactivé

code d'activation GTA 5 steam

Discussions similaires

Newsletters