3926 résultats trouvés

par Pedro22
19 mai 2020, 16:05
Forum : Excel - VBA
Sujet : Afficher une cellule avec un Inputbox
Réponses : 2
Vues : 16

Re: Afficher une cellule avec un Inputbox

Bonjour, Pour commencer sur l'écriture du code : - Le site dispose d'un outil de mise en forme du code dans les messages : </> - On préfère la déclaration de l'ensemble des variables utilisées en début de macro, et pas au gré du code - On utilise l'indentation (retrait plus ou moins prononcé) pour f...
par Pedro22
19 mai 2020, 15:44
Forum : Excel - VBA
Sujet : Bloc "If" à plusieurs conditions
Réponses : 12
Vues : 121

Re: Bloc "If" à plusieurs conditions

Bonjour tout le monde ! Autre proposition à tester (qui gère la possibilité d'une cellule A5 vide) : Sub BKtest() Dim i As Byte, Res As Integer Res = 1 For i = 1 To 3 'Boucle sur les feuilles With Sheets(i) If Not IsEmpty(.Range("A5")) Then Res = Res * (Int(.Range("A5")) <> Date) 'Si date différente...
par Pedro22
19 mai 2020, 10:59
Forum : Excel - VBA
Sujet : Suppression de lignes / action
Réponses : 9
Vues : 24

Re: Suppression de lignes / action

Djulito a écrit :
19 mai 2020, 10:58
Ahhhhhhh ! Ca marche merci beaucoup !!
Je sais pas d'où venais l'erreur, mais tout est bon maintenant !
Merci d'avoir validé le sujet, et bon courage pour la suite ! ;;)
par Pedro22
19 mai 2020, 10:49
Forum : Excel - VBA
Sujet : Suppression de lignes / action
Réponses : 9
Vues : 24

Re: Suppression de lignes / action

Voilà un fichier fictif sur lequel ça fonctionne :
BDD fictive.xlsm
(46.99 Kio) Téléchargé 7 fois
J'ai modifié la macro pour compter également le nombre de lignes supprimées et rendu les compteurs positifs.
par Pedro22
19 mai 2020, 10:38
Forum : Excel - VBA
Sujet : Suppression de lignes / action
Réponses : 9
Vues : 24

Re: Suppression de lignes / action

Peux tu transmettre un fichier avec tes essais ?
La macro nécessite juste d'être initialisée par activation de la feuille en question (= tu changes de feuille puis tu reviens dessus par exemple).
par Pedro22
19 mai 2020, 10:29
Forum : Excel - VBA
Sujet : Suppression de lignes / action
Réponses : 9
Vues : 24

Re: Suppression de lignes / action

Hello merci beaucoup ! Néanmoins, lorsque j'installe la macro... Il ne se passe rien lors de la suppression de ligne... Je viens de le tester, ça fonctionne très bien chez moi... Par contre, il y a 2 lignes à inverser dans le code pour éviter les soucis ! Dim NbLig As Long Private Sub Worksheet_Act...
par Pedro22
19 mai 2020, 10:02
Forum : Excel - VBA
Sujet : Suppression de lignes / action
Réponses : 9
Vues : 24

Re: Suppression de lignes / action

Bonjour, Sauf erreur de ma part, il n'existe pas d’événement spécifique à la suppression de ligne permettant de déclencher une macro (voir : https://www.excel-pratique.com/fr/vba/evenements_feuille). Il faut donc procéder par un moyen détourné, un essai : Dans le module de la feuille concernée : Dim...
par Pedro22
19 mai 2020, 09:53
Forum : Excel - VBA
Sujet : Vba
Réponses : 3
Vues : 23

Re: Vba

Bonjour, Merci de choisir un titre plus explicite que "VBA"... Un essai à partir de ce que j'ai compris : Sub Essai() Dim Lig As Long With Worksheets("Saisie") Do Lig = Lig + 1 'Incrémente le compteur de ligne .Range("B" & Lig) = Application.VLookup(.Range("E" & Lig), Worksheets("BD_REG_NAT").Range(...
par Pedro22
6 mai 2020, 09:14
Forum : Excel - VBA
Sujet : Erreure dépassement de capacité sur commande Cint
Réponses : 7
Vues : 68

Re: Erreure dépassement de capacité sur commande Cint

C'est ça que je dois mettre ? Label8 = Worksheets("SAISIE").Range("bn3").Value Résultat = Round(MonNombre) Bonjour, Non, mon exemple donne une syntaxe générique. Round() est l'équivalent VBA de la fonction Excel ARRONDI() . Ce serait plutôt : Label8 = Round(Worksheets("SAISIE").Range("BN3").Value)
par Pedro22
5 mai 2020, 10:39
Forum : Excel - VBA
Sujet : Erreure dépassement de capacité sur commande Cint
Réponses : 7
Vues : 68

Re: Erreure dépassement de capacité sur commande Cint

Je vais trouver mon format. Peut être puis je juste conserver cint mais diviser par 1000 pour changer l'unité ? ( C'est la puissance qui me pose problème du coup). PS j'ai pas envie de voir tous ces chiffres après la virgule. Bonjour, C'est un arrondi du coup : Résultat = Round(MonNombre, 0) Ou tou...