Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1710 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Erreur objet...

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Erreur objet...

n°1215245
deejoh
Posté le 05-10-2005 à 10:55:33  profilanswer
 

Salut à tous j'ai une erreur d'objet avec ce code , quelqu'un peut il m'aider :
Je veux mettre la formule contenue dans E3 à toutes les cellules de la colone E
TotalLig est le nombre de lignes remplie.
 
x range("E4" ) = "=D4+O4+P4-Q4 etc..."
 
Private Sub InitResteAAffecter()
 
 
 
ThisWorkbook.Worksheets(FeuilleAll).Activate
 
Range("E3" ) = "= D3 + O3 + P3 - Q3 - R3 - S3 - T3 - U3 - V3"
 
 
Range("Cells(LigPreEcriture, ColRestaAffect)" ).AutoFill Destination:=Range("Cells(LigPreEcriture, ColRestaAffect):Cells(TotalLig, ColRestaAffect)" ), Type:=xlFillDefault
 
End Sub
 
 
Merci :)

mood
Publicité
Posté le 05-10-2005 à 10:55:33  profilanswer
 

n°1218311
Fred_l
Posté le 08-10-2005 à 15:13:45  profilanswer
 

Essai avec ça:
    Set Rng = Feuil1.Range("E1" )
    i = 1
    ' Nombre de lignes à mettre à jour
    maxrows = 20
    'Rng = Rng.Offset(1)
    Do
        If i < 10 Then
            MyLen = 1
        End If
        If i > 9 And i < 100 Then
            MyLen = 2
        End If
        If i > 99 And i < 1000 Then
            MyLen = 3
        End If
 
        Formule = "= D" & Right(Str(i), MyLen) & "+ O" & Right(Str(i), MyLen) & "+ P" & Right(Str(i), MyLen) & "- Q" & Right(Str(i), MyLen) & "- R" & Right(Str(i), MyLen) & "- S" & Right(Str(i), MyLen) & "- T" & Right(Str(i), MyLen) & "- U" & Right(Str(i), MyLen) & "- V" & Right(Str(i), MyLen)
        Rng.Offset(i - 1, 0).Value = Formule
        i = i + 1
    Loop While i <= maxrows
 
 
@+


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Erreur objet...

 

Sujets relatifs
[Delphi] erreur Constructor - Inherited.Erreur Javascript - Webmail neuf telecom
(noob)Site en include et erreur 404...Avec AutoIt V3 comment récupérer le code d'erreur d' exécution
Erreur Persits.MailCréer un objet à partir d'une chaine de caractère
Où est ma faute? msg d'erreur("objet requis")Erreur sur l'objet Application en ASP
Erreur sous Windows (VB/VC++) : La méthode ~ de l'objet ~ a échouéerreur 429 le composant activeX ne peut créer l'objet Késako???
Plus de sujets relatifs à : Erreur objet...


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR