Discussion :

[bboy-eazy]

Bonjour à tous,

Je voudrais recopier le contenu d'une cellule dans plusieurs autres cellules en passant par VBA
Je pensai que ce serai simple et bien je galère!! lol

j'ai pensé à ce code mais je pense qu'il existe une solution plus simple. En tout cas ma solution ne fonctionne pas et renvoie une erreur 13 car la ligne target.columns renvoie non pas le N) de colonne mais le contenu que je mets dans la cellule. ex: si je mets "aze" dans la cellule V4, target.columns me renvoie "aze"....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
Dim VISA_A_RECOPIER As String 'variable prenant le visa mis en colonne V pour recopier dans la ligne entière
 
'Recopiage des visas mis en colonne V dans toutes les cases correspondantes
With ThisWorkbook.Worksheets("Pilotage")
If Not Intersect(Target, .Range("V4:V8")) Is Nothing Then
VISA_A_RECOPIER = Target.Value
.Cells(Target.Row, Target.Columns - 20).Value = VISA_A_RECOPIER
.Cells(Target.Row, Target.Columns - 16).Value = VISA_A_RECOPIER
.Cells(Target.Row, Target.Columns - 12).Value = VISA_A_RECOPIER
.Cells(Target.Row, Target.Columns - 8).Value = VISA_A_RECOPIER
End If
End With
End Sub

Merci de votre aide!!

[joe.levrai]

Bonjour,

tu utilises la collection Columns à tort, il faut utiliser la propriété Column (sans le "s") comme pour ton utilisation de la propriété Row

une petite simplification basée sur le fait que tes cellules de destination peuvent se parcourir par multiple de 4
et il est fort probable (pour ne pas dire sûr) que ton bloc With n'est pas utile ... tu es déjà sur la feuille "Pilotage" (je présume) quand ta procédure évènementielle s'active

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim VISA_A_RECOPIER As String
    Dim i As Integer
 
    If Not Intersect(Target, Range("V4:V8")) Is Nothing Then
        VISA_A_RECOPIER = Target.Value
        For i = 8 To 20 Step 4
            Cells(Target.Row, Target.Column - i).Value = VISA_A_RECOPIER
        Next i
    End If
End Sub

[bboy-eazy]

Merci beaucoup pour ta réponse!

C'est effectivement ca! le petit s qui change tout!

Merci pour tes explications et ta simplification qui marche du tonnerre. C'est vrai que j'ai pas pensé à boucle par step 4!


Bien joué!