XL 2019 Exercice Excel VBA Simple

L

Lolote83

XLDnaute Barbatruc

• 3 Mai 2021

• #2

Salut Oriento,
Voici le code de l'exercice1

VB:

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

 

Vote positif 0 Vote négatif

O

Oriento

XLDnaute Nouveau

• 3 Mai 2021

• #3

Lolote83 à dit:

Salut Oriento,
Voici le code de l'exercice1

VB:

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

Cliquez pour agrandir...

Super ça fonctionne pour la Feuille 1.
Merci !

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

Bien à vous,

 

Dernière édition: 3 Mai 2021

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 3 Mai 2021

• #4

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

 

Vote positif 0 Vote négatif

O

Oriento

XLDnaute Nouveau

• 3 Mai 2021

• #5

Lolote83 à dit:

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

Cliquez pour agrandir...

Pas de soucis

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 3 Mai 2021

• #6

Re bonjour,
Exercice2

VB:

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

Code:

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 3 Mai 2021

• #7

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 3 Mai 2021

• #8

Re bonjour,
Voici donc l'exercice4

Code:

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

@+ Lolote83

 

Vote positif 0 Vote négatif

O

Oriento

XLDnaute Nouveau

• 3 Mai 2021

• #9

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

 

Dernière édition: 3 Mai 2021

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 4 Mai 2021

• #10

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 4 Mai 2021

• #11

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 4 Mai 2021

• #12

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Mai 2021

• #13

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 4 Mai 2021

• #14

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Mai 2021

• #15

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

 

Vote positif 0 Vote négatif