Problème vba excel

Résolu
sterog -  
Bonjour, j'ai un problème en vba
j'enregistre une macro, je la teste, jusqu'à là tout va bien
mais dès que je l'associe au click sur un bouton, j'ai une errreur qui apparait(Range("C15").Select devient jaune alors qu'il marchait dans la macro)

voici le code
rivate Sub CommandButton1_Click()
Dim i As Integer
Dim n As Integer
n = Worksheets("feuil2").Range("B16").Value
i = Worksheets("feuil2").Range("B17").Value

If Worksheets("feuil2").Range("B15").Value = 1 Then
Sheets("Feuil2").Select
Range("C15").Select <----------------------------------------------erreur ici
Selection.Insert Shift:=xlDown
Sheets("Feuil1").Select
Range("G10:I10").Select
Selection.Insert Shift:=xlDown
Range("G10").Select
ActiveCell.FormulaR1C1 = "nouveau technicien:"
Range("I15").Select
ActiveSheet.DropDowns.Add(504.75, 118.5, 36, 15.75).Select
Selection.Locked = False
With Selection
.ListFillRange = "Feuil2!$A$3:$A$5"
.LinkedCell = "Feuil2!$C$15"
.DropDownLines = 3
.Display3DShading = False
End With
Range("I10").Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("H5").Select
n = n + 1
Worksheets("feuil2").Range("B16").Value = n

Else
...

je ne comprend vraiment pas
merci d'avance
Configuration: Windows XP
Firefox 2.0.0.4

5 réponses

  1. sterog Auteur
    J'ai réussi à contourner ce problème en mettant 2 boutons différents au lieu d'une liste déroulante avec un bouton liée. Mes macros marchent bien sans la boucle en if.Avec, c'est un mystere. Merci quand même pour ton aide précieuse.
    A+
    0
    1. sterog Auteur
      Je n'ai pas utilisé ce bouton.
      J'ai une liste déroulante dont le choix détermine la macro à utiliser. J'ai donc pris les boutons dans la boite à outil de vba. Le problème peut-il venir de là?
      0
      1. Delaclya
        Bonjour

        Effectivement j'ai recopié ta macro elle fonctionne

        Je l'ai mise sur un bouton et personnellement je n'ai pas de problème

        Bouton utilisé :

        Affichage, barre d'outils, boites a outils de controle, bouton de commande

        A+
        0
        1. sterog Auteur
          ça ne marche toujours pas
          je ne pense pas que ça soit un problème de syntaxe, car j'ai un autre range dans la feuille 1 qui marche très bien. C'est possible que vba n'arrive pas à gérer des actions sur deux pages différentes pour un même bouton?
          0
          2. Delaclya
            Bonjour

            Remplacer

            Range("C15") --> colonne ligne

            par

            Cells(15, 3) --> ligne colonne

            A+
            0