Vba

merci bcp.

salut
j'ai un petit souci avec ma macro encore et toujours =)
j'ai fait une procédure dans laquelle il y a des variables dans lesquelles je stocke des valeurs, jusque là tout va bien, le souci c'est que je crée une autre procédure après qui doit utliser les variales générées dan la procédure précédente.
Quand je mets les noms des variables le débogueur ne les reconnait pas.

merci de m'aider

j'ai essayé de mettre : Worksheets("Feuil1").Range("C3").Select comme tu me l'avais écrit mais ça ne marche pas .
je crois que le problème vient du fait que j'utilise les données d'une feuille A que je colle dans les cellules d'une feuille B, pour cela j'ai fait plusieurs procédures mais ces procédures je dois les mettre dans le code de la feuille A ou de la feuille B ?
Quand je mets les procédures dans le code de la feuille B alors dès que j'utilise la feuille A ça plante et inversement si je mets les procédures dans le code de la feuille A, dés que j'utilise la feuille B ça plante.

merci de m'aider

voici un bout de mon code :
Range("B2: B" & i).Copy 'i correspond au nombre total de lignes

Worksheets("feuille A").Range("B7").Select 'ouverture de la feuille contenant dans laquelle on colle

ActiveSheet.PasteSpecial 'collage
Range("B").Copy 'je copie la colonne B
Range("J").PasteSpecial 'je la colle dans la colonne J de la même feuille

voici l'erreur obtenue :
run-time error 1004 : application-defined or object-defined error

la procédure qui me pose problème n'est pas très longue dc je te la joins ci dessous, elle est mise dans le
code de la feuille "tableau" :
Public Sub remplir()
Worksheets("tableau").Select
For Each c In [b2:b60]
If c.Value Like "Total 1" Then
total_1 = c.Row 'on stocke le num de la ligne dans une variable
End If
If c.Value Like "Total 2" Then
total_2 = c.Row
total_2_bis = total_2 + 1
End If
If c.Value Like "Total 3" Then
total_3 = c.Row
total_3_bis = total_3 + 1
End If
If c.Value Like "Total 4" Then
total_4 = c.Row
End If
If c.Value Like "Total 5" Then
total_5 = c.Row
total_5_bis = total_5 + 1
total_6 = total_5 + 2
otoal_7 = total_5 + 3
total_7_bis = total_5 + 4
End If
Next
Range("B2: B" & total_7_bis).Copy
Worksheets("new tab").Range("B7").Select
ActiveSheet.PasteSpecial
Range("B").Copy
Range("J").PasteSpecial

End Sub

En mettant la procédure dans un module indépendant ça signifie qu'elle n'appartiendra pas à une feuille en particulier ?
Comment je peux la mettre dans un module indépendant ?

Je suis tout à fait d'accord mais ça fait pas longtemps que je programme sur vba et j'ai toujours fait des procédures sans les appeller, quel est l'équivalent du main dans vba ?
Comment t'expliques le fait que mes procédures s'executent quand je lance la macro ?

ok je comprends mieux, c'est gentil d'avoir répondu à toutes mes questions.
par contre j'ai un autre souci, quand je créee une nouvelle feuille, je lui donne un nom et je la créee sa marche mais ensuite quand elle est créee dans l'onglet il n'y a pas le nom que je lui ai attribué.

je l'ai faite avec un code vba.

c'est bon merxci j'ai modifié mon prog en mettant :
Dim feuille As String
feuille = "ma feuille"
ActiveWorkbook.Worksheets.Add.Name = feuille

par contre je voudrais faire une boucle for each mais je crois que ma syntaxe est mauvaise :
For Each a In ["E" &val1 : "E" &val2]
en le compilant il m'indique une erreur.

merci

j'ai finalement réussi en modifiant mon programme :
Dim feuille As String
feuille = "ma feuille"
ActiveWorkbook.Worksheets.Add.Name = feuille

mais maintenant je voudrais faire une boucle mais je crois que j'ai un problème de syntaxe car il me met une
erreur quand je compile :
For Each a In ["E" &lval1 : "E" &val2]

dans ma boucle for each je mets :
resultat1 = resultat1 + a.Value

quand je teste ce que tu m'as expliqué ça fonctionne mais quand il rentre dans ma boucle for il me signale une erreur mismatch

nickel :->
merci beaucoup pour ton aide.
je crois que je t'ai assez embêté pour aujourd'hui dc fini les questions mais ça ne veut pas dire que je ne serai pas de retour demain sur le forum avec des questions encore plus bête que celles que j'ai posé aujourd'hui.
merci encore poulux31
a+

hello!
j'ai un petit souci (encore!!) avec le programme suivant:
le problème se situe là où j'ai mis des points d'interrogations, parce que je veux récuperer le numéro de la ligne obtenue après l'autofilter fait juste au dessus :

Public Sub mise_a_jour()
Worksheets("work").Activate

For Each i In [f32:f3560]
If (i.Value <> 0) Then
Worksheets("references").Activate
Selection.AutoFilter field:=1, Criteria1:=i.Value
Worksheets("work").Range("M" & i.Row).Value = Worksheets("references").Range("C" & ?????).Value
ElseIf (i.Value = 0) And (Range("H" & i.Row).Value = "A1" Or Range("H" & i.Row).Value = "A2") Then
Range("M" & i.Row).Value = "A"
ElseIf (i.Value = 0) And (Range("H" & i.Row).Value = "B1" Or Range("H" & i.Row).Value = "B2") Then
Range("M" & i.Row).Value = "B"
ElseIf (i.Value = 0) And (Range("H" & i.Row).Value = "C1") Then
Range("M" & i.Row).Value = "C"
End If
Next
End Sub


MERCI

je fais un autofilter pour avoir la ligne dont la valeur de la colonne A dans la feuille references est identique à la ligne parcourue par la boucle each dans la feuille work.
Je fais un autofilter pour obtenir la valeur de la colonne C pour la copier dans la colonne M de la feuille Work.

je pense avoir réussi j'ai rajouter après l'autofilter : numligne = Selection.Row.

Comment tu fais pour désactiver le filtre pck jai essayé d'utiliser showalldata mais je crois que ma syntaxe est mauvaise.

merci

merci.
par contre pour récuperer la ligne dont je t'avais parlé tout à l'heure, j'ai un petit souci pck au premier passage dans la boucle for j'obtiens ligne = 650, ensuite cette valeur ne se modifie pas quand la boucle for each continue.

Public Sub maj()
Worksheets("work").Activate
For Each i In [f32:f3560]
If (i.Value <> 0) Then
Worksheets("references").Activate
Worksheets("references").AutoFilterMode = False
Selection.AutoFilter field:=1, Criteria1:=i.Value
ligne = Selection.Row
MsgBox ("valeur de ligne = " & ligne) 'affichage permettant de verifier la valeur de la ligne
Worksheets("work").Range("M" & i.Row).Value = Worksheets("references").Range("C" & ligne).Value
end if
next
end sub

merci

ça me semblerait bizarre qu'il faille boucler parce que quand je lance le debogage "pas à pas", dans la feuille references, il filtre bien à la ligne demandée tout au long de la boucle for.
je regarde aussi sur développez.com
merci

encore moi :->
j'ai essayé d'ajouter pleins de trucs à mon programme mais je vois vraiment pas où est le problème sachant que les filtres sont bons.
merci d'essayer de m'aider quand t'auras un peu de temps.
a+

j'ai finalement réussi en retirant les filtres et en faisant une boucle for
For Each v In [A1: A1088]
If (v.Value = i.Value) Then
Worksheets("work").Range("M" & i.Row).Value = Worksheets("references").Range("C" & v.Row).Value
End If
end for

merci pour ton aide et dsl de t'avoir dérangé pour rien
a+