Ajouts d'éléments à une plage de donnée

adebrux · 2 Novembre 2005

Rebonjour à toutes et à tous.

Je crois tenir la solution à mon probleme (pour ceux qui suivent mes évolutions depuis 2 semaines !!!! ), en créant des cellules de validation.

Mais voilà, il faut pour que ce soitvalide que je définisse mes plages de données (le tout sous VBA, of course ! :whistle: ) qui pour arranger le tout peuvent ne pas être continue...

Petites exemple, dans la liste suivante [ soleil, soleil, velo, soleil], seules les itérations de 'soleil' sont 'indicées' pour montrer qu'elles doivent faire partie de la plage de donnée. (elles sont indicé par la valeur de Tabtemp(L, 5) qui est égal à NIV dans le code)

J'ai donc rentrès dans mon cher VBA le code suivant:

Code:

For L = 1 To UBound(TabTemp, 1)
        If TabTemp(L, 5) = Niv Then
          ActiveWorkbook.Names.Add([Name:='essai'], [sheets(2).cells(L, Niv + 1)])
          End If
    Next L

espérant désepérément que cela permettrait d'ajouter les cellules concernée à ma plage de donnée.

Mais que nenni :woohoo:

ce beau message d'erreur apparait: 'erreur de compilation attendu :='

Ca veut dire quoi ca les gens ????

Merci de votre aide précieuse

et à bientôt

Hervé · 2 Novembre 2005

Bonsoir adebrux, le forum

Une tentative de réponse, mais je suis vraiment pas sur d'avoir compris :

Dim premier As Boolean

    premier = True
    For L = 1 To UBound(tabtemp, 1)
        If tabtemp(L, 5) = niv Then
            If premier Then
                Cells(i, niv + 1).Name = 'essai': premier = False
            Else
                Union(Range('essai'), Cells(i, niv + 1)).Name = 'essai'
            End If
        End If
    Next L

salut

adebrux · 3 Novembre 2005

Merci Hervé, Ca m'a l'air de fonctionner nickel !!!

Ajouts d'éléments à une plage de donnée

adebrux

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

adebrux

XLDnaute Occasionnel

Discussions similaires