VBA ecrire dans un tableau avec Range

[rafi93]

bonjour
je connais assez bien Excel, mais je debute avec VBA
j'ai créé un tableau (plage nommée) avec des colonnes nommées ColA, ColB ColC,...
je souhaite écrire une valeur dans ColC en fonction du contenu de ColA
par exemple si pour chaque ligne, la cellule dans ColA contient un "a" alors écrire "OK" dans ColC, même ligne.

que mettre à la place de ##### ci dessous, en utilisant comme paramètre quelque chose comme "Tableau[colC]" pour plus de lisibilité et moins de risque d'erreur?

Sub test()
Dim C As Variant
For Each C In Range("Tableau[colA]")
If InStr(C, "a") Then #####
Next
End Sub


merci !!

 

[Paf]

Re : VBA ecrire dans un tableau avec Range

bonsoir,

une solution qui ne respecte pas bien votre soucis de lisibilité:

If InStr(C, "a") Then C.OffSet(0,2)="OK"

A+

 

[rafi93]

Re : VBA ecrire dans un tableau avec Range

merci
mais je tiens effectivement à conserver le nommage de la colonne pour la cellule de destination, car la structure de mon tableau peut évoluer dans le temps (déplacement ou rajout de colonne)
c'est d'ailleurs pour cela que j'utilise un tableau avec colonnes nommées...

une autre solution ?

 

[Paf]

Re : VBA ecrire dans un tableau avec Range

Re,

un peu plus lisible ?

If InStr(C, "a") Then Range("Tableau[colC]").Cells(C.row,1) = "OK"

A+

 

[Si...]

Re : VBA ecrire dans un tableau avec Range

salut

à tester

Sub test()
  Dim C As Range
  For Each C In [Tableau[colA]]
    [Tableau[ColC]].Rows(C.Row - 1) = IIf(InStr(C, "a"), "OK", "")
  Next
End Sub

 

[rafi93]

Re : VBA ecrire dans un tableau avec Range

merci à SI et PAF...

les 2 solutions marchent
j'ai juste rajouté la prise en compte que la 1ere ligne du tableau pouvait se trouver à une hauteur quelconque de la feuille, d'où un offset calculé (N° 1ere ligne du tableau).

en fait, jusque la semaine derniere, avant de décider de me mettre à VB, je réalisais cela avec des formules excel à base de SI imbriqués : tres laborieux à écrire et à tester, mais résultat dynamique et instantané, pour 3000 lignes. ici, il faut appuyer sur le bouton, attendre quelques secondes
et penser à re-appuyer si on modifie ColA

mais je suppose que c'est le prix à payer