Problème codes vba

Résolu/Fermé
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - Modifié le 27 oct. 2019 à 14:55
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 27 oct. 2019 à 21:58
Bonjour à vous tous,

Je tourne en rond avec ces codes qui pris individuellement (F8) semblent bon, mais ne fonctionne pas en automatique.
Je vous remercie de bien vouloir me corriger.
ps : Je ne suis pas l'auteur de ces codes.
En vous remerciant. 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tx, i%
    tx = Target.Value
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Select Case Target.Address(False, False)
        Case "Mf"
            Btn_MajBase.Visible = (UCase(tx) = "V")
            Btn_ValiderSaisie.Visible = Not (UCase(tx) = "V")
        Case "A29", "A34", "A37", "S10", "S18", "S21", "S34"
            Target = UCase(Left(tx, 1)) & LCase(Mid(tx, 2))
        Case "A4", "K7", "G24"
            Target = UCase(tx)
        Case "K4"
            tx = Split("-" & tx, "-")
            For i = 1 To UBound(tx)
                tx(i) = StrConv(tx(i), vbProperCase)
            Next i
            Target = Replace(Join(tx, "-"), "-", "", 1, 1)
    End Select
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    Call CfnChoix
End Sub


Sub CfnChoix()    'TEST 1
Range("AA2").Value = ""
    If MsgBox("Supprimer cette personne de l'annuaire ?", vbYesNo) = vbYes And MsgBox("Cette personne sera supprimée de l'annuaire !", vbYesNo) = vbYes Then
        Range("AA2").Value = "Sup"
    Else
        Range("AA2").Value = "Maj"
    End If
        CfnMsgBox
End Sub


Sub CfnMsgBox() ‘TEST 2
COULEUR = IIf([AA2] = "Sup", vbRed, vbBlack):  EPAISSEUR = IIf([AA2] = "Sup", xlThick, xlThin)
    With Range("A3:I4,K3:Q4")
        For Each BORDURE In Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight)
    With .Borders(BORDURE):  .LineStyle = xlContinuous:  .Weight = EPAISSEUR:  .Color = COULEUR:  End With
        Next BORDURE
    For Each BORDURE In Array(xlDiagonalDown, xlDiagonalUp, xlInsideVertical, xlInsideHorizontal)
        .Borders(BORDURE).LineStyle = xlNone
    Next BORDURE
    End With:  [S4].Select
    End Sub





Configuration: Windows / Firefox 70.0

4 réponses

Réponse 1 / 4
jordane45 Messages postés 38467 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 19 avril 2025 4 741
27 oct. 2019 à 16:19
Bonjour,

En quoi cela ne fonctionne t'il pas ?
Sans avoir d'explication détaillée du souci rencontré ni le fichier à disposition il sera difficile à quiconque de pouvoir t'aider.

0
Réponse 2 / 4
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
27 oct. 2019 à 18:05
Bonsoir jordane
Ça tourne en boucle
0
jordane45 Messages postés 38467 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 19 avril 2025 4 741
27 oct. 2019 à 18:10
https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers
0
Réponse 3 / 4
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
27 oct. 2019 à 20:08
Voici le fichier en te remerciant
https://www.cjoint.com/c/IJBth3Dyzcr
0
jordane45 Messages postés 38467 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 19 avril 2025 4 741
Modifié le 27 oct. 2019 à 20:58
Tu as une macro qui se déclenche lorsque le contenu de la feuille change....
puis tu exécute la ligne de code 
Range("AA2").Value = ""

donc ben le contenu de la feuille change...

Normal que ça boucle...

Il faut désactiver l'event dans chaque sub 
Sub CfnChoix()
   '  Call Dpwd   ' VOIR MODULE ACTION
   'LA CA NE DOIT S'EXCUTER QU'UNE SEULE FOIS
   Application.EnableEvents = False

  'la suite de ton code...
0
Réponse 4 / 4
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
27 oct. 2019 à 21:58
JE te remercie jordane ça faisait près de trois semaines que je me triturais le cerveau
Au plaisir de te retrouver une autre fois
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
IPTV CODE BLOQUÉ
Balcoleo -
bazfile -

Bonjour ,
Je voudrais votre aide j ai acheté un code IPTV pour un an en plus de deux mois offerts mais après les deux mois de gratuite plus rien plus d accès au serveur et le ve.deur ne réponds plus aux messages...Que faire?

1 réponse
Configuration RM-014S+
Louis -
Pat -

Bonjour,
Je n'arrive pas à configurer mon RM-014S+ sur ma télé syinix


3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse