> Tous les forums > Forum Bureautique
 Problème avec ce code : Objet requisSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Gorfous
  Posté le 15/06/2017 @ 13:38 
Aller en bas de la page 
Petit astucien

Bonjour,

Je rencontre un problème avec ce code qui affiche le message : Objet requis

Comptant sur votre aide

Private Sub Vérifier() 'OKOK
Dim DerL&, Lig&
DerL = Feuil3.Range("A" & Rows.Count).End(xlUp).Row
For Lig = 2 To DerL
If Cells(Lig, 12) = "" And Cells(Lig, 10) <> "" Then
With Cells(Lig, 12)
.Value = "Non communiquée"
.Font.Bold = True
.Font.ColorIndex = 3
End With
Else
With Cells(Lig, 12)
.Value = .Value
.Font.Bold = False
.Font.ColorIndex = 1
End With
End If
If Cells(Lig, 10) = "" And Cells(Lig, 12) <> "" Then
With Cells(Lig, 10)
.Value = "Non communiquée"
.Font.Bold = True
.Font.ColorIndex = 3
End With
Else
With Cells(Lig, 10)
.Value = .Value
.Font.Bold = False
.Font.ColorIndex = 1
End With
End If 'le curseur se place devant End If
Next Lig
Cells.Columns.AutoFit
["A2"].Select
End Sub

En vous remerciant

Publicité
gilbert_rgi
 Posté le 16/06/2017 à 18:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

remplacer ["A2"].Select par [A2].Select

Salutations

gilbert

Gorfous
 Posté le 16/06/2017 à 20:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour gilbert et merci beaucoup

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
problème Date avec macro
Problème avec mon curseur qui revient en arrière
copier/deplacer une feuille avec objet
Problème avec Windows Live Mail
problème ouverture fichier pdf avec adobe
Probleme d'ouverture de fichier avec excel 2016
Problème code vba
Problème avec Evernote
Probleme avec Abode Reader
Problème avec skype
Plus de sujets relatifs à Problème avec ce code : Objet requis
 > Tous les forums > Forum Bureautique