Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Vba remplissage cellules à partir d'un userform

C

CorinneR

XLDnaute Nouveau
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
 

Pièces jointes

  • Assolement.JPG
    81.6 KB · Affichages: 42
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Corinne,
Un premier jet "sans filet"
VB: 
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 )
 

Pièces jointes

  • Essai assolement.xlsm
    19.8 KB · Affichages: 7
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
VB: 
If Not Intersect(Target, Range("D3:M30")) Is Nothing Then
il vous faut donc remplacer "D3:M30" par votre plage réelle.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

W
  • Question
XL 2019 Extraire du texte à partir d'un renvoi de ligne automatique
Réponses
8
Affichages
339
DJunqueira
D
F
  • Résolu(e)
XL 2021 Filtre listbox, afficher dernière ligne ajouter d'une colonne.
2
Réponses
15
Affichages
557
patricktoulon
P
  • Question
XL 2019 Modification d'une ligne d'une autre feuille lors d'un echange d'effet dans un userform
Réponses
11
Affichages
481
TooFatBoy
  • Question
Récupération des méta-donnée d'un livre à partir de son ISBN
Réponses
0
Affichages
152
Pyros2536
R
  • Résolu(e)
XL 2019 Remplissage multiples à partir d'un tableau
Réponses
6
Affichages
280
WTF
C
  • Question
XL 2019 Insérer logos via userform excel dans word
Réponses
10
Affichages
301
CBX
C
M
  • Question
XL 2019 Assigner une valeur dans une combobox à partir du caption d'un button command
Réponses
8
Affichages
450
mallow2000
M
  • Question
XL 2021 location, et taux de remplissage
Réponses
8
Affichages
471
chris
A
  • Question
XL 2016 Fusion cellules via VBA
Réponses
3
Affichages
444
fanfan38
M
  • Résolu(e)
XL 2016 Lier le nombre de décimale entre 2 cellules
Réponses
3
Affichages
178
Mou74
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…