Sélection plage variable à l'aide de chr()

Bonjour,

Je bute sur un problème qui me prends beaucoup de temps et j'aurai souhaité avoir des pistes de résolution.

Voici le problème:

Je souhaite sélectionner une plage de valeur sur une seule colonne de la ligne 1 à la ligne b (encore une variable).Oui enfantin me direz-vous, mais voilà j'ai paramètré le choix de la colonne par la création d'une variable choixcolonne.

J'ai donc voulu utiliser la fonction chr().

Voici le bout de code :

nbx = InputBox("Numéro de la colonne à moyenner")
Cells(1, Val(nbx)).Select
Selection.End(xlDown).Select
b = ActiveCell.Row
Range(Chr(75), 1 & ":" & Chr(75), b).Select
Selection.ClearContents

En vous remerciant d'éclairer ma lanterne.
Configuration: Windows XP Internet Explorer 6.0

6 réponses

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Bonjour,
    Beh pour d'éclairer ta lanterne. faudrait d'abord comprendre ce que tu veux faire exactement.
    Tu donne le choix à l'utilisateur de sélectionner une colonne, ça je pense que c'est clair.
    ensuite tu veux vider une plage mais laquel ? ça c'est pas clair, et pas besoin d'employer des chr() pour des colonne qui peuvent être déterminées soit par leurs lettres , A.. B .. C.. ou leurs numéro 1.. 2..3..
    Explique.
    A+
    1. Bonjour,

      Je désire vider les cellules allant de la ligne 1 à b (variable) de la colonne que j'ai sélectionner (c'est en quelque sorte une initialisation).

      Voilà est-ce un peu plus clair ?

      Merci.
      1. Contributeur
        Non.. :D
        mais si c'est vraiment la ligne 1 (ce que je ne crois pas,
            Range(Cells(1, 1), Cells(1, b)).ClearContents


        C'est TOUJOURS la ligne 1 ?
        Ne voudrais-tu pas plutôt insérer une ligne à cet endroit ?
        1. Ce que je veux c'est sélectionner ma plage de cellules de la cellule de coordonnées (1,nbx) jusqu'à la cellule de coordonnées (nligne,nbx) en gros.
      2. Contributeur
        et nligne c'est la dernière ligne ?
        ou alors c'est quel ligne ?
      3. Contributeur
            Range(Cells(1, 1), Cells(Cells(65536).End(xlUp).Row, b, b)).ClearContents

        Va vider à partir de la cellule A1 jusque la dernière ligne de la colonne spécifiée par b
        Supposons que b=5 et la dernière ligne qui n'est pas vide dans la colonne b est la ligne 50, ça va vider la plage A1:E50
        C'est ça ?
        1. Dans ton exemple tu changes de colonne mais c'est pas grave j'ai fourbé en contournant le problème mais je te remercie pour t'être penché sur mon cas.