Remplir une plage de cellules entre deux cellules

[Fred009]

Bonjour,

Je cherche le code vba pour effectuer cette manip :

Je suis sur la feuille 2.
Je cherche à remplir une plage de cellules de la colonne B entre deux cellules de la colonne A.
J'ai une date en A1 et une autre en A10. Si ces dates correspondent avec deux dates que j'ai sur ma feuille 1, je remplis en texte toutes les cellules entre B1 et B10 de la feuille 2.

Merci pour votre aide.

Frédéric

 

[Staple1600]

Re : Remplir une plage de cellules entre deux cellules

Bonjour à tous

Fred009
Avec un fichier exemple, ce serait plus clair, non ?

 

[Fred009]

Re : Remplir une plage de cellules entre deux cellules

Mes essais sont dans le module4 (partie 'tâches).

 

[vmatthieu]

Re : Remplir une plage de cellules entre deux cellules

bonjour à tous,
cela doit venir de moi, mais même avec le fichier, je ne comprends pas du tout ce que tu veux faire...

 

[Staple1600]

Re : Remplir une plage de cellules entre deux cellules

Re, Bonjour vmatthieu

Je crois avoir compris
Tu veux remplir les cellules avec le texte en colonne A selon les dates de début et de fin en colonne B et C de la feuille Taches, les cellules correspondantes des feuilles semestre
Exemple pour Appel d'offre
Les cellules D5[noparse]😀[/noparse]15 de la feuille semestre1 doivent contenir Appel d'offre et la macro devra faire la même chose pour le reste du tableau

 

[Fred009]

Re : Remplir une plage de cellules entre deux cellules

Oui Staple 1600.

J'ai créer un fichier exemple plus clair.

Les tâches sont dans la feuille 1. En feuille 2, ce que je souhaite afficher.

Je précise que j'ai caché la colonne B dans la feuille semestre1 qui me permet de retrouver les dates de début et fin de la feuille tâches (on fait comme on peut hein ^^) pour afficher mon texte dans les cellules souhaitées.

 

[Staple1600]

Re : Remplir une plage de cellules entre deux cellules

Re

Comment crois-tu que j'avais compris?
j'avais ouvert ton fichier exemple 😉 du message #3.

Bon maintenant, il reste plus qu'à macroter mais je vais d'abord digérer (repas de famille oblige)

D'autres ici devraient venier te filer un coup de main.

 

[vmatthieu]

Re : Remplir une plage de cellules entre deux cellules

re,
il doit y avoir plus efficace mais bon
Sub mettretexte()
Dim tache As Integer
Dim coldate As Integer
Dim nbligne As Integer
Dim val As Long
Dim val2 As Long
Dim test As Long
For tache = 2 To 6
For coldate = 2 To 17 Step 3
For nbligne = 2 To 32
val = Feuil1.Cells(tache, 2).Value
val2 = Feuil1.Cells(tache, 3).Value
With Feuil2

If .Cells(nbligne, coldate).Value >= val And .Cells(nbligne, coldate).Value <= val2 Then
Cells(nbligne, coldate + 2) = Feuil1.Cells(tache, 1)
Else
End If

End With
Next nbligne
Next coldate
Next tache
End Sub



tu peux dupliquer la partie with feuil2 jusqua end with avec un with feuil3 (ton deuxième semestre) end with

par contre change les date c'est en 2012 sur ta deuxième feuille sinon ca ne marche pas

 

[Fred009]

Re : Remplir une plage de cellules entre deux cellules

Très bien !
Merci pour ta réponse. 🙂