Discussion :

[Pierre67]

Bonjour,

j'ai une petite difficulté à écrire une code.
J'ai une plage de cellule non contigues C1:L1 - C4:L4 - C7:L7 - C10:L10 .....(toujours avec un pas de 3).
Et je souhaite utiliser target.value. Je ne sais pas où définir ma plage à l'intérieur de laquelle target.value sera appliquée ?
j'ai le code de target.value pour tout un tableau mais pas pour une plage.

Merci pour vos conseils
@+

[cb_60]

Bonsoir
Il faudrais en voir un peu plus

Code :

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

Range("C1:L1,C4:L4,C7:L7,C10:L10").Select

ce que j'ai mis au dessus permet de selectionner tes cellules

[Pierre67]

Bonjour,

OK merci.
Deux précisions :

1 - mes lignes vont jusqu'à 112
2 - je ne veux pas les sélectionner, je veux nommer cette plage et c'est à l'intérieur de cette plage que va s'appliquer target.value

[cb_60]

Re
Une adaptation d'une macro de Michel

Code :

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

1
2
3
4
5
6
7
8
9
10
       Dim x As Integer, y As Integer
 
        'Crée une boucle de 1 à 112
        For x = 1 To 112 Step 3
            'Crée une boucle de 1 à 7
            For y = 1 To 7
                'Ecrit dans les colonnes
                Cells(x, y) = TAvaleur '"L" & x & "-C" & y
            Next y
        Next x

correction pour ne pas boucler sur toutes les feuilles

[JackOuYA]

bonsoir,

à ton tour de m'éclaircir


c'est quoi pour toi

Et je souhaite utiliser target.value

target.value ?

PS: pour t'aider, pour moi target et le nom du paramétre utilisé par Excel VBA, dans la plus part des procédure événementielles possédant un paramétre de type range (plage).

[Pierre67]

En fait, Target.value est utilisé comme RechercheV mais dans la cellule courante.

le code ci-dessous fonctionne à merveille MAIS sur tout un tableau.

Je cherche à limiter cela à, disons aux lignes 4 - 7 - 10 - 13 - 16 -.....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i As Byte
Dim code As String
 
On Error GoTo fin
If Target.Value <> "" Then
    code = Target.Value
    For i = 3 To 9
        If code = Cells(i, 14) Then Target.Value = Cells(i, 15)
    Next
End If
fin:
End Sub

[JackOuYA]

Bonjour,Pierre

je continue à essayer de t'expliquer ce qu'est target avant de te répondre...

regarde ton code :

Code :

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

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

tu vois bien que Target et un paramétre range de la fonction événemetielle Worksheet_change. Ainsi lorsque un changement intervient dans ta feuille excel , excel appelle cette fonction avec comme paramétre target qui pointe sur la plage de cellule modifié.

cela n'as rien à voir avec rechercheV que tu "lance toi même" en lui passant tes paramétres.