XL 2019 Exercice Excel VBA Simple

[Oriento]

Bonjour,

Pourriez-vous faire cet "exercice" ci-joint en PDF avec comme base le fichier Excel ci-joint, et me le renvoyer s'il vous plaît ? Cet "exercice" paraît assez simple, mais pour moi c'est un vrai casse-tête étant donné que je débute, j'en suis désolé.

Merci d'avance,

Cordialement

 

[Lolote83]

Salut Oriento,
Voici le code de l'exercice1

Sub Exercice1()
    For Each xCell In Range("A4:A30")
        xTva = xCell * [B1] / 100
        xTtc = xCell + xTva
        xCell.Offset(0, 1) = xTva
        xCell.Offset(0, 2) = xTtc
    Next xCell
End Sub

@+ Lolote83

 

[Oriento]

Salut Oriento,
Voici le code de l'exercice1

Sub Exercice1()
    For Each xCell In Range("A4:A30")
        xTva = xCell * [B1] / 100
        xTtc = xCell + xTva
        xCell.Offset(0, 1) = xTva
        xCell.Offset(0, 2) = xTtc
    Next xCell
End Sub

@+ Lolote83

Super ça fonctionne pour la Feuille 1.
Merci !

Avez-vous réussi à faire la feuille 2,3 et 4 ?

Bien à vous,

 

[Lolote83]

Re bonjour,
Oups, pas vu.
Je regarde
@+ Lolote83

 

[Oriento]

Re bonjour,
Oups, pas vu.
Je regarde
@+ Lolote83

Pas de soucis 🙂

 

[Lolote83]

Re bonjour,
Exercice2

Sub Exercice2()
    For Each xCell In Range("A5:A30")
        If xCell >= 0 Then
            xCell.Offset(0, 1) = "Supérieur ou égale à zéro"
        Else
            xCell.Offset(0, 2) = "inférieur à zéro"
        End If
    Next xCell
End Sub

Exercice3

Sub Exercice3()
    For Each xCell In Range("B6:O30")
        Randomize
        xAlea = Int(50 * Rnd) + 1
        xCell.Value = xAlea
    Next xCell
End Sub

Excercice4
pas compris, il faut simplement ré-écrire le texte ?
Si oui, vous avez toutes les armes pour le faire
@+ Lolote83

 

[Lolote83]

Re bonjour, et re oups,
Pas lu le PDF jusqu'au bout.
Pour l'exercice 2, vous pouvez corriger par vous même
Pour l'exercice 4, je regarde
@+ Lolote83

 

[Lolote83]

Re bonjour,
Voici donc l'exercice4

Sub Exercice4()
    For Each xCell In Range("B6:B10")
        xTexte = xTexte & " " & Replace(xCell, "o", "*")
    Next xCell
    [B15] = UCase(xTexte)
End Sub

@+ Lolote83

 

[Oriento]

Super Lolote83 ! Je vais décortiquer ses lignes afin de les comprendres.

Sinon, pour l'exercice 2, j'ai remplacé ce que vous avez écrit entre guillemet par "xCell". Est-ce correcte ?

Et dernière question s'il vous plaît, au lieu d'utilisé la couleur de police en Rouge dans l'onglet Accueil, y'a-t-il un moyen de coder la couleur ?

Merci beaucoup

 

[Lolote83]

Re bonjour,
Ou se trouve cet onglet Accueil ?
@+ Lolote83

 

[eriiic]

Bonjour,
avis perso : ce n'est vraiment pas lui rendre service.
Ni très juste devant ceux qui font l'effort de travailler...
eric

 

[Lolote83]

Bonjour ERIIC,
Tu as entièrement raison mais c'est aussi grâce à tous les contributeurs qui partagent leurs connaissances dans ce forum que j'en suis moi même de temps en temps arrivé à proposer des solutions.
C'est vrai que livrer du tout cuit, ne permet pas forcément de faire cogiter le demandeur, mais en regardant les solutions, peut être que notre ami Oriento aura apprit quelques choses. C'est du moins ce que je suppose.
De plus, Oriento nous dit :

Super Lolote83 ! Je vais décortiquer ses lignes afin de les comprendre.

Il est vrai que la demande initiale m'a quelque peut interloqué mais bon....
Bonne journée
@+ Lolote83

 

[patricktoulon]

Bonjour a tous
je n'ai pas envie d'aller travailler aujourd'hui vous pouvez y aller a ma place s'il vous plaît
avec tout mes remerciement
après ma sieste vers 5 h du soir je regarderais ce que vous avez fait histoire de comprendre comment vous faite histoire de ne pas me r'endormir idiot
🤣 🤣 🤣

 

[Lolote83]

Bonjour Patrick,
Je veux bien aller travailler à ta place mais je ne penses pas que le résultat sera efficace.
Je vois au final que tout le monde m'accuse d'avoir répondu à cette demande.
Comme je l'ai dit, la demande initiale m'a tout de même interloqué.
Il est vrai que si la demande avait été faite en disant : "J'essaye de faire le truc, mais malgré mes recherches je n'y arrive pas, pouvez vous m'expliquer comment m'y prendre ......" cela aurait été moins problématique.
Bonne journée à toi
@+ Lolote83

 

[patricktoulon]

re
non @Lolote83 personne ne t'accuse de quoi que ce soit
on va pas te reprocher d'aider quelqu'un même si c'est pas la bonne solution de le faire comme ça
de ce que j'ai vu des codes proposés c'est du niveau archi débutant et les formules de même
si le demandeur ne sais pas faire un calcul de tva , il a un sérieux problème