Bonjour le forum
voila je nomme dynamiquement les colonnes en fonction du nom de celle ci, juste les colonnes qui m'interesse
le soucis c'est que sur un tableau qui doit faire 500 lignes où toutes les cellules sont remplies
et bien je n'obtiens pas toutes les lignes de la colonne et cela meme entre les 2 colonnes suivantes du code
Kesako ?
merci d'avance pour votre aide
Sub MEFDT()
Sheets("DT").Activate
Dim i As Integer
With Sheets("DT")
For i = 1 To 36
If .Cells(1, i) = "N° de commande_extra" Then
.Cells(1, i) = "Commande_extra"
ActiveWorkbook.Names.Add Name:="Commande_extra", RefersToR1C1:="=OFFSET(DT!R2C" & i & ",,,COUNTA(DT!C" & i & ")-1)"
' on insere une colonne avant "command_extra"
.Columns(i).Resize(, 1).Insert
.Cells(1, i) = "RTX"
ElseIf .Cells(1, i) = "ID Accès" Then
ActiveWorkbook.Names.Add Name:="ID_Acces", RefersToR1C1:="=OFFSET(DT!R2C" & i & ",,,COUNTA(DT!C" & i & ")-1)"
End If
Next i
End With
End Sub
voila je nomme dynamiquement les colonnes en fonction du nom de celle ci, juste les colonnes qui m'interesse
le soucis c'est que sur un tableau qui doit faire 500 lignes où toutes les cellules sont remplies
et bien je n'obtiens pas toutes les lignes de la colonne et cela meme entre les 2 colonnes suivantes du code
Kesako ?
merci d'avance pour votre aide
Sub MEFDT()
Sheets("DT").Activate
Dim i As Integer
With Sheets("DT")
For i = 1 To 36
If .Cells(1, i) = "N° de commande_extra" Then
.Cells(1, i) = "Commande_extra"
ActiveWorkbook.Names.Add Name:="Commande_extra", RefersToR1C1:="=OFFSET(DT!R2C" & i & ",,,COUNTA(DT!C" & i & ")-1)"
' on insere une colonne avant "command_extra"
.Columns(i).Resize(, 1).Insert
.Cells(1, i) = "RTX"
ElseIf .Cells(1, i) = "ID Accès" Then
ActiveWorkbook.Names.Add Name:="ID_Acces", RefersToR1C1:="=OFFSET(DT!R2C" & i & ",,,COUNTA(DT!C" & i & ")-1)"
End If
Next i
End With
End Sub