Problème avec fonction si dans macro Fermé

Question

Bonjour à tous, voilà je me lance pour la première fois dans les macros et la fonction si mais j'ai un petit problème. 
Alors voilà selon le texte indiqué dans une cellule je souhaite copier et coller plusieurs tableaux dans un autre fichier 
voici mon code: 

If c23 = "aerzen-MSB7" Then
    Sheets("aerzen-MSB7").Select
    Range("A1:O61").Select
    Selection.Copy
    Sheets("Feuil4").Select
    Range("D21").Select
    ActiveSheet.Paste
If c23 = "adicomp-renner" Then
 Sheets("Adicomp-renner").Select
    Range("A1:G63").Select
    Selection.Copy
    Sheets("Feuil4").Select
    Range("D21").Select
    ActiveSheet.Paste
    
End If

End Sub

mais cela ne fonctionne pas j'ai un message qui m'indique bloc if sans end if. Je ne comprend pas pourtant il est  bien indiqué

Patrice33740 · Answer

Bonjour,

Ce n'est qu'un partie de ton code !!!

c23 est une variable , comment est est-elle initialisée ?
Avec VBA, il faut absolument éviter d'utiliser .Select

La programmation exige beaucoup de rigueur, voici quelques conseils qui t'éviterons bien des déboires :

• commences tous les modules par Option Explicit, cela oblige à déclarer toutes les variables
• déclares les variables avec le type ad hoc (i.e. pas toutes en Variant)
• limites leur portée au strict nécessaire (i.e. locale, privée, publique ou globale) ;
• envisages tous les types potentiels de chaque variable pour éviter les erreurs ;
• dans le doute prévois un gestionnaire d"erreur ;
• n'utilises jamais .Select, évites d'utiliser les objets actifs : Selection, Activecell, Activesheet, ... ;
• évites les références implicites(i.e. partielles), privilégies les références explicites (i.e. suffisamment    complètes),
   --- par exemple, au lieu de = Cells(1,2) écrire = Worksheets(1).Cells(1,2).Value,
   donc, précises toujours la feuille pour un objet Range (Cells, Rows, ...) et la propriété cible (Value, Text, ...)
• n'hésites pas à utiliser des variables pour représenter les objets, ça facilite l'écriture et la lecture du code,
   --- par exemple :  Set MaPlage = Me.Range("B2:C8") ; 
• pour les mêmes raisons, n'hésites pas à utiliser aussi With et End With ;
• évites d'utiliser des propriétés ou méthodes d'objet héritées qui pourraient ne pas exister,
  --- par exemple, au lieu de : Sheets(1).Range("A1") écrire Workheets(1).Range("A1"), 
   en effet l'objet Range n'appartient pas à Sheet mais à Worksheet ;
• éviter d'utiliser le Presse-Papier, préfères la copie directe avec une destination Source.Copy Destination ou
   bien, pour copier uniquement les valeurs : Destination.valeur = Source.Valeur.

amandine.amara · Answer

enfait c23 est ma cellule où est indiqué le texte dont va dépendre la macro 
si en cellule c 23 apparaît le mot oui par exemple il faut que se colle automatique un tableau et si non apparaît alors un autre tableau doit se coller

f894009 · Answer

Bonjour,
Salut Patrice33740
Sans parler des select, il manque simplement un else devant le deuxieme if
If c23 = "aerzen-MSB7" Then
    Sheets("aerzen-MSB7").Select
    Range("A1:O61").Select
    Selection.Copy
    Sheets("Feuil4").Select
    Range("D21").Select
    ActiveSheet.Paste
ElseIf c23 = "adicomp-renner" Then
    Sheets("Adicomp-renner").Select
    Range("A1:G63").Select
    Selection.Copy
    Sheets("Feuil4").Select
    Range("D21").Select
    ActiveSheet.Paste
End If

Patrice33740 · Answer

Re,
 
« enfait c23 est ma cellule ... »  eh bien NON !!! Comme je t'ai dit, c23 est une variable.
Édit : si tu avais mis Option Explicit au début du module tu t'en serais aperçu !

Si tu veux faire référence à la valeur contenue dans cellule c23, il faut écrire
If Activesheet.Range("c23").Value = ...
Un excellent cours VBA gratuit :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf

Problème avec fonction si dans macro

4 réponses

Discussions similaires