macro : ajout en fin de colonne d'un tableau dynamique de texte formule......

[laraviole]

Bonjour,

En bout de tableau croisé, les colonnes étant dynamiques,(J,K,L dans fichier joint mais demain peut-être M,N,O), comment faire dans la macro pour entrer une formule dans ces colonnes et l' incrémenter suivant le nombre de ligne référent à la colonne E ( c'est une colonne qui n'a pas de ligne vide)
Merci pour votre aide
Laraviole

 

[laraviole]

Re : macro : ajout en fin de colonne d'un tableau dynamique de texte formule......

Bonsoir
Je me sens abandonnée !
J'ai toujours pas trouvé la solution.
Au secours tout le forum
Merci
Je modifie car j'ai un peux avancée mon souci maintenant est comment ou quelle syntaxe utiliser dans une macro pour copier la formule d'une cellule et la coller dans les X cases suivantes ( e A1 à A50 par exemple mais sans faire référence à la colonne A ) . Par contre j'arrive à repérer la colonne qui a la formule sans problème

 

[laraviole]

Re : macro : ajout en fin de colonne d'un tableau dynamique de texte formule......

Hé Ho le Forum, y'a pas de solution !

 

[skoobi]

Re : macro : ajout en fin de colonne d'un tableau dynamique de texte formule......

Re,

euh!! faut être patient, on a tous une vie privé aussi!!!
bref, test ce code à la place du tien:

Sub test()
Sheets("Frégate Reco").Select

derc = Range("A7").End(xlToRight).Offset(0, 1).Column
derl = Range("a8").SpecialCells(xlCellTypeLastCell).Row
For i = 8 To derl
    Cells(i, derc).FormulaR1C1 = _
    "=IF(RC5="""","""",(IF(ISERROR(VLOOKUP(RC5,annuaire!C1,1,FALSE)),""Absent"",(VLOOKUP(RC5,annuaire!C1,1,FALSE)))))"
Next
End Sub

A+

 

[laraviole]

Re : macro : ajout en fin de colonne d'un tableau dynamique de texte formule......

Bonsoir
merci Skoobi ça marche
J'ai quelques autres petits soucis
De la même facon, je ne sais pas descendre une "demande de validation de données"
ex :
Range("A7").End(xlToRight).Offset(1, 2).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$K$1:$K$2"
'Comment faire pour que cette demande de validation fasse référence en dynamique à la source
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Voir le 1er fichier joint pour exemple plus précis
Merci pour votre aide

 

[skoobi]

Re : macro : ajout en fin de colonne d'un tableau dynamique de texte formule......

Re,

essaye ceci:

derc = Range("A7").End(xlToRight).Offset(0, 2).Column
derl = Range("a8").SpecialCells(xlCellTypeLastCell).Row
For i = 8 To derl
With Cells(i, derc).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$K$1:$K$2"
'Comment faire pour que cette demande de validation fasse référence en dynamique à la source
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

 

[laraviole]

Re : macro : ajout en fin de colonne d'un tableau dynamique de texte formule......

Bonsoir
C'est tout simplement génial. Ca marche
Merci pour votre aide