Une petite question:
En vba quel est le code pour ajouter une colonne en testant la valeur de la
colonne suivante.
Je m'explique, imaginons que j'ai "DCP" en J5, peu importe ce qu'il y a dans
les colonnes précedentes car le nombre de colonnes qui précède peut varier.
je veux rajouter "Total DAT" dans une colonne en ligne 5 juste avant "DCP"
.Ensuite j'ai ma formule de somme des colonnes précedentes, je pense qu'il
faudrait que je mette le numéro de la nouvelle colonne dans une variable?
Ensuite je vais faire la même chose 2 fois dans d'autres colonnes plus loin
dans le tableau.
Quelqu'un peut-il m'aider?
Je vous en remercie par avance.
Merci pour ta réponse, ca m'a donné des idées, ca n'a pas vraiment marché mais je vais en rester à du rajout manuel de colonnes.
Merci encore
Sous réserve de bonne compréhension...
Sub zzz() laLigne = 5 'variable à initialiser Cells(laLigne, Rows(laLigne).Find("DCP").Column - 1) = "Total DAT" End Sub
AV.
Ange Ounis
Une petite bricole pour, peut-être, te donner encore des idées :
''''''''''''''''''''''' Sub essai() ChercheEtAjoute 5, "DCP", "Total DAT" End Sub
Sub ChercheEtAjoute(LaLigne As Long, LeTexte As String, TexteInséré As String) Dim cell As Range On Error Resume Next Set cell = Rows(LaLigne & ":" & LaLigne).Find(LeTexte) If Err <> 0 Then Exit Sub cell.EntireColumn.Insert cell(, 0).Value = TexteInséré End Sub '''''''''''''''''''''''
---------- Ange Ounis ----------
Bonjour à tous,
Une petite question: En vba quel est le code pour ajouter une colonne en testant la valeur de la colonne suivante. Je m'explique, imaginons que j'ai "DCP" en J5, peu importe ce qu'il y a dans les colonnes précedentes car le nombre de colonnes qui précède peut varier. je veux rajouter "Total DAT" dans une colonne en ligne 5 juste avant "DCP" ..Ensuite j'ai ma formule de somme des colonnes précedentes, je pense qu'il faudrait que je mette le numéro de la nouvelle colonne dans une variable?
Ensuite je vais faire la même chose 2 fois dans d'autres colonnes plus loin dans le tableau.
Quelqu'un peut-il m'aider? Je vous en remercie par avance.
Une petite bricole pour, peut-être, te donner encore des idées :
'''''''''''''''''''''''
Sub essai()
ChercheEtAjoute 5, "DCP", "Total DAT"
End Sub
Sub ChercheEtAjoute(LaLigne As Long, LeTexte As String, TexteInséré As String)
Dim cell As Range
On Error Resume Next
Set cell = Rows(LaLigne & ":" & LaLigne).Find(LeTexte)
If Err <> 0 Then Exit Sub
cell.EntireColumn.Insert
cell(, 0).Value = TexteInséré
End Sub
'''''''''''''''''''''''
----------
Ange Ounis
----------
Bonjour à tous,
Une petite question:
En vba quel est le code pour ajouter une colonne en testant la valeur de la
colonne suivante.
Je m'explique, imaginons que j'ai "DCP" en J5, peu importe ce qu'il y a dans
les colonnes précedentes car le nombre de colonnes qui précède peut varier.
je veux rajouter "Total DAT" dans une colonne en ligne 5 juste avant "DCP"
..Ensuite j'ai ma formule de somme des colonnes précedentes, je pense qu'il
faudrait que je mette le numéro de la nouvelle colonne dans une variable?
Ensuite je vais faire la même chose 2 fois dans d'autres colonnes plus loin
dans le tableau.
Quelqu'un peut-il m'aider?
Je vous en remercie par avance.
Une petite bricole pour, peut-être, te donner encore des idées :
''''''''''''''''''''''' Sub essai() ChercheEtAjoute 5, "DCP", "Total DAT" End Sub
Sub ChercheEtAjoute(LaLigne As Long, LeTexte As String, TexteInséré As String) Dim cell As Range On Error Resume Next Set cell = Rows(LaLigne & ":" & LaLigne).Find(LeTexte) If Err <> 0 Then Exit Sub cell.EntireColumn.Insert cell(, 0).Value = TexteInséré End Sub '''''''''''''''''''''''
---------- Ange Ounis ----------
Bonjour à tous,
Une petite question: En vba quel est le code pour ajouter une colonne en testant la valeur de la colonne suivante. Je m'explique, imaginons que j'ai "DCP" en J5, peu importe ce qu'il y a dans les colonnes précedentes car le nombre de colonnes qui précède peut varier. je veux rajouter "Total DAT" dans une colonne en ligne 5 juste avant "DCP" ..Ensuite j'ai ma formule de somme des colonnes précedentes, je pense qu'il faudrait que je mette le numéro de la nouvelle colonne dans une variable?
Ensuite je vais faire la même chose 2 fois dans d'autres colonnes plus loin dans le tableau.
Quelqu'un peut-il m'aider? Je vous en remercie par avance.
