Problème avec fonction si dans macro

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

.

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

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

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