XL 2010 Fonction resize

vgendron à dit:

il y en a partout dans ton fichier...
on ne sait meme pas de quelle macro on parle..

VB:

 Sub RechercheEtSelection()
 Dim Cellule As Range
 ValeurCherchee = Range("Location!b6").Value
  Set Cellule = Range("c3:bb3").Find(what:=ValeurCherchee, LookIn:=xlValues, lookat:=xlWhole)
 
  If Not Cellule Is Nothing Then Range(Cellule, Cellule(1, 7)).Select
End Sub

Cliquez pour agrandir...

vgendron à dit:

ton fichier comporte plusieurs problèmes qui font que meme si tu recopies correctement l'instruction donnée (donc. SANS le .activate), ca ne fonctionnera pas..

il faut commencer par corriger les choses suivantes:

ton formulaire te permet de saisir une réservation
la date du début de séjour est alimentée par la ligne 28
1) d'après le texte en A27 , la ligne 28 correspond aux dates de FIN de séjour..
ne faudrait il pas plutot utiliser la ligne 26 pour alimenter la cellule C21 ?

2) les dates de début de séjour sont en 2023
quand tu cherches la date de début de séjour dans ton planning "Location" dans la ligne 3 (C3:BB3) : il n'y a aucune chance de trouver la date. vu que la ligne 3 est en 2022....

Cliquez pour agrandir...

vgendron à dit:

à mon avis tu te perds dans ton code..
à force de faire des selections ca ne va pas du tout où tu veux

regarde ce début de code: est ce que déjà. il y a bug ou pas?

VB:

Sub selectionne_periode_dans_calendrier()
'
' selectionne_periode_dans_calendrier Macro

Dim debutloc As Range

With Sheets("recap ") 'dans la feuille "Recap":on récupère les deux infos
    appartement = .Range("M3").Value
    periode = .Range("P3").Value
End With
With Sheets("Location") 'dans la feuille "Location": on récupère l'info
    ValeurCherchee = .Range("B6").Value
End With

Sheets("location").Activate 'on bascule sur la feuille==> pas indispensable

Set debutloc = Range("c3:bb3").Find(what:=ValeurCherchee, LookIn:=xlValues, lookat:=xlWhole) 'on cherche la date dans la ligne 3

If Not debutloc Is Nothing Then
    debutloc.Resize(1, 7).Select 'on selectionne la date + 7 colonnes.. et ?? à quoi ca sert?
Else
    MsgBox "la date de début de location: " & ValeurCherchee & " n'est pas dans le planning"
    Exit Sub
End If
end sub

Cliquez pour agrandir...