XL 2010 Aide

Yzoa · 19 Novembre 2016

Bonjour à tous,

Je suis total néophyte en langage vba et autant vous dire que je ne comprends pas du tout un exercice qu'un ami m'a donné ... j'ai réussi 2 exercices mais alors le 3ème ... je butte complètement !!
Il s'agit de la feuille "boucle" et de la création de macro en VBA telle qu'indiquer sur l'image ci-joint...

Si vous pouviez m'aider svp à comprendre comment fonctionne les fonctions YEAR en vba et les FOR...NEXT car je ne vois vraiment pas comment çà marche !!

Merci d'avance.
Cordialement,

Dranreb · 19 Novembre 2016

Bonjour
Vous pouvez toujours commencer par taper une instruction Sub Exercice3 dans un module standard, derrière: For L = 2 To 70, remettre le curseur sur le mot For puis touche F1 pour en savoir plus.
Quand à Year, c'est expliqué en grande partie dans l'énoncé, Year(Cells(L, "A").Value) représenterait l'année portée dans la date contenue en colonne A, ligne L.

Yzoa · 19 Novembre 2016

neophyte j'aurais du dire encore pire lol
je ne comprends pas ce qu'il faut mettre dans les variables pour que cela recopie mon année uniquement dans la colonne suivante (donc B)
un exemple peut-etre pour me faire comprendre ?

merci de ton aide !!

Dranreb · 19 Novembre 2016

Cells est une méthode des objets Application, Worksheet et Range qui renvoie, si elle est suivie de spécification ligne et colonne entre parenthèses, un objet Range représentant une seule cellule.
On peut non seulement récupérer la propriété Value d'un objet Range, mais aussi lui affecter une valeur. C'est ce qu'on appelle une propriété en lecture/écriture.
L'affectation c'est Cible = Source
Cible étant une variable ou une propriété en écriture d'un objet, et Source une expression.

Voilà, voila. C'est un bon petit paquet de notions de base que vous devez acquérir au plus vite, sans faute.

Yzoa · 19 Novembre 2016

dac, je vais voir ce qu'il me manque alors mais pas facile je trouve pour des premiers exercices de macro VBA

Yzoa · 19 Novembre 2016

It's ok ...
Merci bcp pour ton aide Draneb

VB:

Sub Annee()
    Dim i As Integer
    Dim d As Date
   
    For i = 2 To 70
        d = Cells(i, 1)
        Cells(i, 2) = Year(d)
        If Year(d) <= 1956 Then
        Cells(i, 3) = "Senior"
        Else: Cells(i, 3) = "Normal"
        End If
    Next
End Sub

++

XL 2010 Aide

Yzoa

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Yzoa

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Yzoa

XLDnaute Nouveau

Yzoa

XLDnaute Nouveau

Discussions similaires