affecter une valeur

[asper]

j'ai une plage de cellules qui s'appelle "secteur", en fonction de la valeur contenue dans la cellule a1, j'aimerai attribuer à cette plage les valeurs contenues dans une autre plage .
exemple :

si la valeur en a1 = 8 j'aimerai que la plage "secteur" prenne la valeur de la plage "sect8"

 

[skoobi]

Re : affecter une valeur

Bonjour,

A tester:

Sub test()
If Range("A1").Value = 8 Then Range("secteur").Value = Range("sect8").Value
End Sub

 

[asper]

Re : affecter une valeur

merci,

Mais y-a-t -il une solution sans passer par une macro

 

[mutzik]

Re : affecter une valeur

Bonjour à tous,

en commencant ton premier post par le mot Bonjour (ou autre), cela le fait beaucoup mieux

sinon, oui c'est possible en formules mais il faut ton fichier pour éviter de galérer ...

 

[asper]

Re : affecter une valeur

Salut,

excuse moi pour cet oubli d civilité.

Voici mon fichier

Par avance merci pour ton aide

 

[jp14]

Re : affecter une valeur

Bonjour le fil

Ci joint un fichier avec une macro évènementielle qui recopie une zone dans une zone en fonction de leur nom.
Les zones doivent être de taille identique.
Les zones doivent porter un nom
En changeant le numéro de la zone on transfère les données.

A tester

JP

Fichier avec macro modifiée pour tenir compte d'une erreur au niveau de la saisie de la valeur.

 

[jeanpierre]

Re : affecter une valeur

Bonjour asper et Bienvenue sur XLD, skoobi, Bertrand, JP,

asper, je ne comprends pas, ton code fonctionne très bien, sauf que dans ton post tu parles de la cellule A1,avec 8, et dans ton code, c'est la cellule A35, avec 1 qui est testée, alors forcément, cela marche moins bien.

Jean-Pierre

 

[formateurmasque]

Re : affecter une valeur

Bonjour,

la solution, viens de la fonction indirect :

=INDIRECT("sect"&$A$1)

A+
FM

 

[asper]

Re : affecter une valeur

Salut,

oups!! une erreur, c'est bien en A1 où la valeur se trouve.
Sous forme de macro cela fonctionne, mais je me demandais s'il n'y avait pas une solution sous forme de fonction. ASi cela n'es tpas possible sour une autre forme j'utiliserai la macro événementielle de JP14 que je remercie

Merci à tous

 

[asper]

Re : affecter une valeur

Salut à tous

Merci pour vos réponses j'ai la solution par formateur masque. Merci à lui

Bonne journée

 

[meldja]

Re : affecter une valeur

Bonjour,
Je te propose une solution avec la fonction rechercheh, je ne sais pas comment envoyer ton fichier dans la réponse alors j'ai ouvert un autre post "Valeur Ajoutée bis", va le voir et tu auras le fichier avec la pièce jointe.
Petite précision, en B1, j'ai récupéré la valeur de A1 ajouté à "Sect" pour la recherche. On ne voit pas ce qu'il y a en B1 parce que la couleur de la police est en blanc.