Problème code (erreur 1004) [Résolu]

Question

Posez votre question Signaler

Problème code (erreur 1004) [Résolu]

BIOoOAG123 - 26 mars 2013 à 16:53 - Dernière réponse : ucfoutu

Messages postés: 18039
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

- 10 avril 2013 à 13:59

Visual Basic 6 Posez votre question Signaler

Bonjour, j'ai réalisé pas mal de recherche sur mon problème mais impossible de trouver la solution

Sub test()
Dim g As Integer

g = 2
For g = 2 To 200 Step 1
    If Worksheets(1).Range("B" & g) = "Marge Moyenne Significative :" Then
    Worksheets(1).Range(Range("B" & g), Range("B" & g + 12)).Delete

    End If
Next


End Sub

Voici mon code, rien de plus simple, je parcours la colonne B à la recherche de "Marge Moyenne Significative :" et je supprime cette plage.

Mais l'erreur 1004 apparait tout le temps, j'ai essayé plein de chose différentes, avec Range(Cells(...)Cells(...)) mettre "II" au lieu de B et d'autres truc, rien n'y fait. :(

Si vous avez une solution.

Afficher la suite

A voir également:

Votre réponse

Répondre au sujet

9 réponses

Signaler Commenter la réponse de ucfoutu

ucfoutu

Messages postés: 18039
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

267 26 mars 2013 à 17:55

0

Merci

Bonjour,

Range("B" & g), Range("B" & g + 12)

s'écrit :

Range("B" & g)&":"B" & g + 12)

Mais la démarche en soi parait étrange et est probablement maladroite. Peux-tu exposer techniquement les aboutissants recherchés ?

Veille dorénavant à ouvrir tes discussions VBA dans la section Langages dérivés > VBA, qui n'a rien à voir avec ;

Forum > Visual Basic 6

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Signaler Commenter la réponse de BIOoOAG123

BIOoOAG123 27 mars 2013 à 11:40

0

Merci

Oki merci de ton aide, je n'avais pas vu la section VBA

J'ai arrangé le code avec ton aide et il fonctionne avec le code ci dessous:

Range("B" & g & ":" & "B" & (g + 12))

Signaler Commenter la réponse de ucfoutu

ucfoutu

Messages postés: 18039
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

267 27 mars 2013 à 11:43

0

Merci

range("B" & g & ":B" & (g + 12))

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Signaler Commenter la réponse de BIOoOAG123

BIOoOAG123 27 mars 2013 à 11:49

0

Merci

Ah oui pour le simplifier au maximum! :) (Comment on change le titre pour mettre résolu?)

Signaler Commenter la réponse de isidor82

isidor82 9 avril 2013 à 19:03

0

Merci

bonjour! j'ai presque le même problème sauf que chez moi le cas est celui-ci, quant je lancele programe pour la première fois sans problème mais quant je ferme excel et que j'en l'affichage je reçois ce message 'error 1004' la methode range de l'objet global a échoué voici le code
Private Sub Command7_Click()
Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet
Dim NomImage As String
Dim Repertoire As String
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Open ("d:\bulletin.xls")

Set wbExcel = appExcel.ActiveWorkbook

Set wsExcel = wbExcel.ActiveSheet
appExcel.Visible = True

NomImage = code.Text
Repertoire = "C:\PHOTO"
wsExcel.Pictures.Insert(Repertoire & NomImage & ".jpg").Select
With wsExcel.Shapes("Image 1")
.Top = Range("N1").Top
.Left = Range("N1").Left
.Height = Range("N1:N3").Height
.Width = Range("N1:N1").Width
End With
end sub
svp aider moi je vous en serrez reconnaisant

Signaler Commenter la réponse de ucfoutu

ucfoutu

Messages postés: 18039
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

267 9 avril 2013 à 20:48

0

Merci

Bonjour, isidor82,
peut-on savoir ce qui te donne à penser que ton problème est similaire à celui objet de la présente discussion ?
Excuse-moi, mais je ne vois personnellement aucun rapport

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Signaler Commenter la réponse de isidor82

isidor82 10 avril 2013 à 13:47

0

Merci

bonjour ucfoutu! le code d'erreur 1004 me touche dans mon travail svp venez à mon secour car crois que vous pouver le faire svp!!!
le thème de cette discussion est sur problème code(erreur 1004) voilà ce qui pousse de poser le mien je ne suis pas assez douer en la matière, je suis debutant en vb

Signaler Commenter la réponse de ucfoutu

ucfoutu

Messages postés: 18039
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

267 10 avril 2013 à 13:59

0

Merci

Ouvre ta propre discussion, dans ce cas, hein ...
Car ton problème a le même effet, mais une cause très distincte de celui exposé dans la présente discussion.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Votre réponse

Répondre au sujet

Posez votre question

ucfoutu · Accepted Answer · 2013-03-27T11:45:10+0100

Meilleure réponse

Signaler Commenter la réponse de ucfoutu

ucfoutu

Messages postés: 18039
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

267 27 mars 2013 à 11:45

3

Merci

Range("B" & g & ":B" & (g + 12))

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 141 internautes nous ont dit merci ce mois-ci

Problème code (erreur 1004) [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !