J’aimerais pourvoir spécifier les colonnes que je veux au lieu de (1 To 39) j’aimerais mettre 1, 30,31,32,33,34,35 …
Quelqu’un a une idée ?
Sub Empl_LoadSuivi()
Dim EmpRow As Long
Dim EmpCol As Long
With Feuil4
If .Range(« B5 »).Value = Empty Then
MsgBox « Entrer un Nom valide »
Exit Sub
End If
.Range(« B1 »).Value = True 'Mettre Employé sur True
EmpRow = .Range(« B5 »).Value For EmpCol = 1 To 39
.Range(Sheet2.Cells(1, EmpCol).Value).Value = Sheet2.Cells(EmpRow, EmpCol).Value
Next EmpCol
.Range(« B1 »).Value = False 'Mettre Employé sur False
.Range(« B6 »).Value = False 'Mettre nouveau Employé sur False
End With
End Sub
EmpCol = « 1/30/31/32/33/34/35 »
For i = 1 to Ubound(Split( EmpCol,"/"))
colonne = Split(EmpCol,"/")(i)
.Range(Sheet2.Cells(1, colonne).Value).Value = Sheet2.Cells(EmpRow, colonne).Value
Next i
et peut être mettre en tout début :
Dim colonne As Integer
Dim i As Integer
Attention il faut ressaisir les guillemets accolés à la donnée au clavier dans l éditeur
Celà doit venir de ce caractère
Ils doivent être à l identique de ceux-ci :
Ubound(Split( EmpCol,"/")
Qui entoure /
Essaies et dis moi
Je te répète et c est criant dans ta copie d écran ces guillemets sont à proscrire :
«
Il faut les mettre comme ceux qui entoure le caractère / ici :
Ubound(Split( EmpCol,"/")
Pour cela il faut les supprimer et les retaper au clavier accolé à la donnée 1/30/31/32/33/34/35 et ce au 2 extrémités mais surtout enlever ce caractère impropre :
Parfait reste à faire vivre la variable EmpCol en fonction des colonnes à traiter
Tu peux en lister le nombre à ta convenance en respectant le format de saisie
Ne mets pas de caractère / en début ou en fin car bug en perspective