Macro BVA- Incompatibilité de type Résolu/Fermé

Question

Bonjour à tous, 
J'ai créer une macro il y a peu et lorsque que je veux la lancer le message "Incompatibilité de type" s'affiche.
Ma macro est une série de Si et FinSi. 
Elle doit afficher quelque chose quand elle trouve le bon nombre dans une case, ce quelle fait. Mais le message s'affiche quand même.

Pouvez-vous m'aider ? 

PS : il y a un autre problème : la macro doit faire ce que j'ai décrit pour plusieurs ligne mais seul la première ligne s'affiche.

ccm81 · Answer

Bonjour

Difficile de t'aider sans voir
Envoies ton fichier sur https://mon-partage.fr/ et joins le lien obtenu à ton prochain message

Cdlmnt

A_0504 · Answer

Première fois que j'utilise le forum désolé

voici un lien Google Drive : https://accounts.google.com/ServiceLogin?service=wise&passive=1209600&continue=https://drive.google.com/drive/folders/1FHPzEgLMIo-Fx7RQ1G8J3BMFlzC_k6Zk?usp%3Dsharing&followup=https://drive.google.com/drive/folders/1FHPzEgLMIo-Fx7RQ1G8J3BMFlzC_k6Zk?usp%3Dsharing

La macro s'appelle Planning_1
et pour l'executer il faut cliquer sur le case RESULTAT dans la feuille Données

A_0504 · Answer

ok 
Pourquoi Google n'est pas bien ? 

https://www.cjoint.com/c/JFdoINqANZn

Yoyo01000 · Answer

C'est normal, tu dis à ta macro SI D9 = 6 mais ça ne fonctionne pas tout comme ça aurait bloqué avant SI D9 = 2 ;)

Correctif avec des Else ("sinon") :

Sub Planning_1()''Planning_1 Macro''If Range("B9") = "Tache A" Then    If Range("D9") = 1 Then        Sheets("Banque_de_données").Select        Range("C7:F7").Copy        Sheets("Planning").Select        Range("A9:D9").Select        ActiveSheet.Paste   Else   If Range("D9") = 2 Then        Sheets("Banque_de_données").Select        Range("C7:F8").Copy        Sheets("Planning").Select        Range("A9:D10").Select        ActiveSheet.Paste   Else    If Range("D9") = 3 Then        Sheets("Banque_de_données").Select        Range("C7:F9").Copy        Sheets("Planning").Select        Range("A9:D11").Select        ActiveSheet.Paste   Else    If Range("D9") = 4 Then        Sheets("Banque_de_données").Select        Range("C7:F10").Copy        Sheets("Planning").Select        Range("A9:D12").Select        ActiveSheet.Paste    Else    If Range("D9") = 5 Then        Sheets("Banque_de_données").Select        Range("C7:F11").Copy        Sheets("Planning").Select        Range("A9").Select        ActiveSheet.Paste    Else    If Range("D9") = 6 Then        Sheets("Banque_de_données").Select        Range("C7:F12").Copy        Sheets("Planning").Select        Range("A9:D14").Select        ActiveSheet.Paste    End If    End If    End If    End If    End If    End IfEnd If

ccm81 · Answer

> A_0504. 
1. Beaucoup à redire dans le code, en particulier une foule de Select qui ne sont pas utiles
Par exemple dans ton module 3, la procédure Tache_B() qu'on peut démarrer comme ceci (les bordures peuvent être traitées en bloc
Sub Tache_BB()
'
' Tache_B Macro
'
Sheets("Données").Select
Range("B10").Value = "Tache B"
Range("C10").Value = "0"
Range("D10").FormulaLocal = "=SI(C10<$H$9*$F$11+1;1;SI(C10<2*$H$9*$F$11+1;2;SI(C10<3*$H$9*$F$11+1;3;SI(C10<4*$H$9*$F$11+1;4;SI(C10<5*$H$9*$F$11+1;5;SI(C10<6*$H$9*$F$11+1;6;SI(C10<7*$H$9*$F$11+1;7;SI(C10<8*$H$9*$F$11+1;8;""MO non-disponible""))))))))"
With Range("C10:D10").Borders
  .LineStyle = xlContinuous
  .ColorIndex = 0
  .Weight = xlThin
End With
.....
End Sub

2. J'ai un peu simplifié le code proposé par Yoyo1000 en évitant les If ... Then ... else

Option Explicit

Sub Planning_1()
'
'Planning_1 Macro
'
If Range("B9") = "Tache A" Then
  Sheets("Banque_de_données").Select
  Select Case Range("B9").Value
    Case 1: Range("C7:F7").Copy
            Sheets("Planning").Select
            Range("A9:D9").Select
            ActiveSheet.Paste
    Case 2: Range("C7:F8").Copy
            Sheets("Planning").Select
            Range("A9:D10").Select
            ActiveSheet.Paste
    Case 3: Range("C7:F9").Copy
            Sheets("Planning").Select
            Range("A9:D11").Select
            ActiveSheet.Paste
    Case 4: Range("C7:F10").Copy
            Sheets("Planning").Select
            Range("A9:D12").Select
            ActiveSheet.Paste
    Case 5: Range("C7:F11").Copy
            Sheets("Planning").Select
            Range("A9").Select
            ActiveSheet.Paste
    Case 6: Range("C7:F12").Copy
            Sheets("Planning").Select
            Range("A9:D14").Select
            ActiveSheet.Paste
  End Select
End If
End Sub
Cdlmnt

Yoyo01000 · Answer

Il y a l'erreur remarquée par ccm81 et il y en avait une autre : 

Range("A9:").Select => Range("A9:D13").Select

If Range("B9") = "Tache A" Then  Sheets("Banque_de_données").Select  Select Case Range("D9").Value    Case 1: Range("C7:F7").Copy            Sheets("Planning").Select            Range("A9:D9").Select            ActiveSheet.Paste    Case 2: Range("C7:F8").Copy            Sheets("Planning").Select            Range("A9:D10").Select            ActiveSheet.Paste    Case 3: Range("C7:F9").Copy            Sheets("Planning").Select            Range("A9:D11").Select            ActiveSheet.Paste    Case 4: Range("C7:F10").Copy            Sheets("Planning").Select            Range("A9:D12").Select            ActiveSheet.Paste    Case 5: Range("C7:F11").Copy            Sheets("Planning").Select            Range("A9:D13").Select            ActiveSheet.Paste    Case 6: Range("C7:F12").Copy            Sheets("Planning").Select            Range("A9:D14").Select            ActiveSheet.Paste  End SelectEnd If

à retester

Au passage, ccm81, quelle balise de code utilises-tu pour VBA ?

A_0504 · Answer

J'ai un autre petit problème : saurez-vous comment exécuter plusieurs macro en même temps grâce à une macro ? 

Merci
cordialement

Macro BVA- Incompatibilité de type

7 réponses

Discussions similaires