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!!