macro à adapter de 1 feuille à toutes les feuilles

[Regis]

Bonjour le forum


Dans l'exemple ci-joint, la macro me permet d'inscrire Toto dans toutes les cellules comprises dans l'intervalle défini par mes 2 inputbox.

Dans le cas d'1 feuille ça fonctionne mais si l'intervalle défini par mes 2 inputbox se trouve sur plusieurs feuilles, cela ne fonctionne plus évidement.

Etant débutant en vba, je n'arrive pas à adapter cette macro.
Merci pour un petit coup de main.
A+

Macro:
Sub macro()
Dim d3 As Date
d1 = InputBox('rentrer le début de période')
d2 = InputBox('rentrer la fin de période')

Dim i As Integer

For i = 3 To 11 Step 2
d3 = Cells(5, i)
If d3 = d1 Then
Cells(10, i).Value = 'toto'
End If
Next i
End Sub

 

[Regis]

bizarre ma macro ne s'est pas copiée correctement?
2ème essai:

Sub macro()

Dim d3 As Date

d1 = InputBox('rentrer le début de période')
d2 = InputBox('rentrer la fin de période')

Dim i As Integer
For i = 3 To 11 Step 2
d3 = Cells(5, i)
If d3 = d1 Then
Cells(10, i).Value = 'toto'
End If
Next i
End Sub

 

[Regis]

Bon d'accord, j'ai compris certains caractères ne passent pas !
3ème essai:

Sub macro()

Dim d3 As Date

d1 = InputBox('rentrer le début de période')
d2 = InputBox('rentrer la fin de période')

Dim i As Integer
For i = 3 To 11 Step 2
d3 = Cells(5, i)
If d3 INF OU EGAL d2 And d3 SUP OU EGAL d1 Then
Cells(10, i).Value = 'toto'
End If
Next i
End Sub

 

[Joshua14]

Bonjour Regis, le forum

Aurais tu un fichier type pour un peu mieux comprendre ton besoin et pourquoi les intervalles changes de feuilles :S

 

[Regis]

Bonjour Joshua14, le forum


Ci-joint un petit fichier explicatif
Tiens moi au courant stp

🙂

 

[Regis]

Avec le fichier ce sera mieux [file name=rechdatestest.zip size=8918]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/rechdatestest.zip[/file]

 

[Joshua14]

Bonjour Regis,

J'ai regarder ton problème et je te joins un fichier qui te permettra de remplir les cases sur plusieurs feuilles

J'espere que cela t'ira 🙂 [file name=Regis200605270957.zip size=8281]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Regis200605270957.zip[/file]

 

[Regis]

Bon sang mais c'est bien sûr !!
🙂

Merci pour le coup de main, cela me va parfaitement.

So long
Regis

 

[Regis]

Désolé de te solliciter à nouveau, mais je viens de me rendre compte en transposant la macro à mon application que j'obtiens l'erreur 'incompatibilité de type'.

C'est du au fait que dans certaines feuilles, mes cellules (8,i) contiennent du texte et non une date.
Dans l'absolu, il faudrait que si dans la feuille active il y a une ou plusieurs cellules contenant du texte que la macro passe à la feuille suivante.

Je te joins un fichier explicatif [file name=rechdatestest_20060527162322.zip size=15989]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/rechdatestest_20060527162322.zip[/file]

 

[Joshua14]

Bonsoir Regis,

J'ai ajouté un test sur le format de la valeur contenu dans test cellules

J'espere que cela sera bon pour toi

A+ [file name=Regis200605272200.zip size=16778]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Regis200605272200.zip[/file]

 

[Régis]

Bonjour Joshua14

Cette fois c'est nickel. Mon application roule sans souçi grâce à toi et mon vba progresse d'autant.

@+