Discussion :

[alexandrek]

Bonjour

voila j'ai un gros soucis sur mon code

je voudrais a travers ce code que lorsque je clique sur une cellule de la colonne D (de la ligne 1 a 158) cette macro selectionne les données correspondantes de la colonne A à M et ensuite
que chaque cellule (ex a1, b1, c1 .... m1) soit renomée ....

mon programe beug terriblement
alala les débuts ds vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 
Sub selectdata()
 
Dim i As Integer
Dim j As Integer
 
Dim seltrade As Variant
 
For Each seltrade In Worksheets("2401").Range("D27:D158")
 
For i = 1 To 158
    If Selection = Range("D,i") Then
    Range(ActiveCell, ActiveCell.Offset(0, -3)).Select
    Range(ActiveCell, ActiveCell.Offset(0, 12)).Select
    End If
 
Next i
 
For j = 1 To 13
 
 
ActiveWorkbook.Names.Add Name:="CLI1", RefersToR1C1:="=Feuil2401!R(i)C(J)"
ActiveWorkbook.Names.Add Name:="REC1", RefersToR1C1:="=Feuil2401!R(i)C(J+1)"
ActiveWorkbook.Names.Add Name:="PAY1", RefersToR1C1:="=Feuil2401!R(i)C(J+2)"
ActiveWorkbook.Names.Add Name:="DEALSL1", RefersToR1C1:="=Feuil2401!R(i)C(J+3)"
ActiveWorkbook.Names.Add Name:="SF1", RefersToR1C1:="=Feuil2401!R(i)C(J+4)"
ActiveWorkbook.Names.Add Name:="VALD1", RefersToR1C1:="=Feuil2401!R(i)C(J+5)"
ActiveWorkbook.Names.Add Name:="AMCCY111", RefersToR1C1:="=Feuil2401!R(i)C(J+6)"
ActiveWorkbook.Names.Add Name:="AMCCY221", RefersToR1C1:="=Feuil2401!R(i)C(J+7)"
ActiveWorkbook.Names.Add Name:="CCYON1", RefersToR1C1:="=Feuil2401!R(i)C(J+8)"
ActiveWorkbook.Names.Add Name:="CCYTT1", RefersToR1C1:="=Feuil2401!R(i)C(J+9)"
ActiveWorkbook.Names.Add Name:="RATES1", RefersToR1C1:="=Feuil2401!R(i)C(J+10)"
 
 
Next j
 
Next
End Sub

merci de votre compréhension

[MarcelG]

Bonsoir Alexandrek,

Ouh là là !

Aucun problème, on va reprendre de bout en bout, ce soir et demain.

1 - Sache tout d'abord qu'en VBA, pour exercer une action, tu n'as pas besoin de sélectionner ton objet (Range)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A1").Select
Selection.Value = 1

doit être remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").Value = 1

Le code s'en trouve plus clair et plus performant.

2 - Dans ton code, si tu boucles avec une occurence i, celle-ci ne doit pas être incluse dans une chaîne de caractères (entre guillemets)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D,i")

ne veut rien dire car l'occurence "i" est alors considérée "en dur"

Il faut remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("D"&i)

3 - Si j'ai bien compris, tu veux avoir autant de noms que de cellules de nombre = lignes * colonnes.

Joins un fichier simplifié en précisabnt quelles cellules tu veux nommer.

[alexandrek]

voila le fichier je veux renomer en faite si i = 8 en cliquant sur d8

toutes les cellules a8 jusqu'a M8

toutes les cellules a traves cette boucle que je veux modifier sont en rouge

tres tres dur les debuts en vba

merci bcp en tout cas de votre aide

[MarcelG]

Alexandrek,

J'ai adapté un code.

Pour cela, il te faut placer les racines "CLI" etc en entêtes de colonnes, donc en ligne, à partir de E26 puisque tu balaies à partir de la ligne 27.

Donc quelquechose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub CréatNoms()
 
Dim débnoms as range
Dim listnoms as range
 
Set débnoms = Sheets("2401").Range("E26")
 
Set listnoms = Range(débnoms, débnoms.End(xlToRight))
 
For Each nom In listnoms
    For i = 1 To 132
        ActiveWorkbook.Names.Add Name:=nom.Value &"_" & i, RefersToR1C1:=nom.Offset(i, 0)
    Next
Next
 
End Sub

Tes noms seront cr"és du type CLI_1, REC_1 ... en ligne 27, CLI_2, REC_2... en ligne 28 etc...

Tu obtiendrais ainsi 11 * 132 noms, ce qui est énorme.

Précise bien si cela correspond à ta recherche.

A demain.

[MarcelG]

Alexandrek,

Nos posts se sont croisés.

Je ne crois pas qu'il existe un évènement click, mais plutôt doubleclick.

En tout cas, ton développement est intéressant.

On en reparle demain. Promis.

[alexandrek]

IL ME MARQUE LA variable nom n est pas définie ?

[Qwazerty]

Salut
http://www.developpez.net/forums/d10...ucle-for-next/
Évite d'ouvrir plusieurs postes sur le même sujet.
Des modifications de ton code t'ont été proposées, et tu n'en tiens pas compte dans le "nouveau" code que tu nous proposes, pourtant elle me paraissent très a propos.

Il serait bien de nous expliquer globalement (globalement, mais clairement quand même hein ) ce que tu souhaites faire, il serait alors plus facile pour les gens présents sur le forum de te conseiller dans la structure de ton code.


++
Qwaz

[MarcelG]

Bonsoir Qwaz,
Alexander,

Ajoute après les 2 premières déclarations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim nom as Range

(tu dois être en Options Explicit, toutes tes variables doivent être déclarées,
Personnellement, je trouve que les codes y gagnent en clarté)

Pour le reste, je rejoins Qwaz. Précise bien où tu veux en venir.

A demain.