XL 2013 Vba remplissage cellules à partir d'un userform

[CorinneR]

Bonjour,
je travaille sur un petit fichier pour essayer de gérer le parcellaire et l'assolement pour du maraîchage.
Je bloque sur la recherche de la cellule (intersection parcelle/planche/n°semaine)
Pourriez-vous m'aider ?
Ci-joint un capture écran
Merci pour votre aide
Corinne

 

[sylvanu]

Bonjour Corinne,
Auriez vous un fichier test.
Ce serait plus sympa pour bosser, cela éviterait de tout se retaper à la main, et surement de façon approximative.

 

[CorinneR]

Voilà le fichier test
merci

 

[sylvanu]

Bonjour Corinne,
Un premier jet "sans filet"

Option Explicit
Private Sub CommandButton1_Click()
'Noms utilisés : SemaineDébut,SemaineFin,Parcelle,Planche,Culture
Dim IndexSemDeb, IndexSemFin, Derlig, L
On Error GoTo Fin:
IndexSemDeb = Application.Match(Val(UserForm1.SemaineDébut), Range("2:2"), 0)   ' Repère du début
IndexSemFin = Application.Match(Val(UserForm1.SemaineFin), Range("2:2"), 0)     ' Repère de la fin
Derlig = Range("B65500").End(xlUp).Row
For L = 3 To Derlig
    If Cells(L, 2) = UserForm1.Parcelle And Cells(L, 3) = Val(UserForm1.Planche) Then Exit For  ' Cherche Parcelle/Planche
Next L
' Met en couleurs ( aleatoires ! ) la plage trouvée
Range(Cells(L, IndexSemDeb), Cells(L, IndexSemFin)).Interior.Color = RGB(Int(255 * Rnd()), Int(255 * Rnd()), Int(255 * Rnd()))
Cells(L, IndexSemDeb) = Culture     ' Inscrit la culture désirée.
Fin:
End Sub
Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub

Sans vérification si les semaines de début existent ou non,
Les parcelles doivent être entrées Pxx, et sans vérification si elles existent ou non.
Les couleurs utilisées sont aléatoires. ( avec les OGM, de toute façon, on ne sait plus )

 

[CorinneR]

C'est top, je vous remercie bcp.
par contre si je peux encore demander une petite chose : si je me suis trompée dans la saisie, comment je l'annule ?

 

[sylvanu]

Si pendant la fenêtre de saisie, alors Annuler.
Si après avoir fait OK alors le mieux est de d'effacer dans le tableau, car il n'y a pas de mémorisation de l'action faite.
Je pense que c'est faisable mais ça doit être complexe.
Faites un nouveau post, peut être que quelqu'un aura une solution à vous proposer.
Ou changer de stratégie.

 

[sylvanu]

Just for the fun ...

En parlant d'une autre stratégie, essayez cette PJ.
Je trouve l'ergonomie plus agréable, et ça permet d'annuler une semence.

 

[CorinneR]

Vraiment fun, c'est bluffant !!
Merci bcp... je vais essayer de comprendre !

 

[sylvanu]

Prenez plutôt celle ci, j'avais oublié une petite sécurité.
Pour les couleurs, si vous ne voulez pas qu'elles soient aléatoires, il doit exister des solutions simples.

 

[CorinneR]

par contre est-il possible de choisir la couleur ou pas ?
sur le tableau en manuel j'en utilise 2 et j'alterne pour que ce soit visible

 

[sylvanu]

Hihihi ! nos post se sont croisés.
Donnez moi les deux couleurs que vous aimeriez utilisées. Soit en RGB, soit par couleur, mais pas par index car ça dépend de votre palette.

 

[CorinneR]

en fait c'est 3 que j'utilise
en RVB : Vert (198 224 180) Bleu (189 215 238) Orange (248 203 173)
en principe j'ai pas plus de 3 rotations dans l'année

 

[sylvanu]

Bof les couleurs.
J'ai fait au plus simple : une rotation des 3 couleurs en fonction du N° de lignes, comme ça il ne peut pas y avoir deux couleurs identiques à proximité.

 

[CorinneR]

un grand merci à vous.
il me reste plus qu'à l'adapter à mon fichier, j'espère que je vais y arriver !

 

[sylvanu]

C'est très simple puisque toute la macro qui est événementielle est dans Feuil1.
La seule modification que vous ayez à faire concerne la plage cible, qui est ici :

If Not Intersect(Target, Range("D3:M30")) Is Nothing Then

il vous faut donc remplacer "D3:M30" par votre plage réelle.