Appuyer sur un bouton au lieu de faire défiler

Bonjour

j'ai un ficher excel avec le prix de maisons.

Selon le prix, la maison appartient a un type de bien particulier

voici les intervalles

Intervalle de prix type de produit

0 129999 LowCost

130000 169999 Intermédiaire

170000 210000 Premium

211000 1E+20 Luxe

J'ai donc effectuer un recherche V et j'obtient le type de produit en faisant défiler vers la droite la cellule du prix.

J'aimerais que cela se fasse non pas en défilant mais appuyant sur un bouton créer en VBA.

Mais je suis un débutant en VBA. Comment faire?

merci

Bonjour Medzert,

Alors pour ma part, je pense que lorsque on est débutant en VBA, on essaye de s'en passer

Tu verras dans le fichier ci-joint que c'est simple quand on connait déjà les fonctions Excel et leur utilisation

A+

Bonjour,

je me suis mal exprimé sur ma question

en prenant ce fichier ci-joint en exemple, lorsque je rajoute une ligne en ajoutant une nouvelle DSIGN ainsi que le Prix

j'obtient en défilant les cellules C et D vers le bas leur type ainsi que l'année grâce à mes formules

j'aimerais pouvoir ne pas avoir à défiler mais à juste appuyer sur un bouton de sorte que les colonnes C et D se mettent à jour toutes seuls après remplissage de la colonne A et B (DSIGN et Prix)

merci

Re,

Je me demande comment tu arrives à trouver le bon résultat avec un RECHERCHEV()

Sinon le code à utiliser pour ton bouton

Sub MiseAJour()
  Dim DLig As Long, Lig As Long
  ' Dernière ligne du tableau
  DLig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
  ' Vérifier qu'il existe des lignes
  If DLig = 1 Then Exit Sub
  ' Avec la feuille
  With Sheets("Feuil1")
  ' Pour chaque ligne
  For Lig = 2 To DLig
    ' Inscrire les formules
    .Range("C" & Lig).FormulaLocal = "=ANNEE(A" & Lig & ")"
    .Range("D" & Lig).FormulaLocal = "=RECHERCHEV(B" & Lig & ";inter;3;VRAI)"
  Next Lig
  End With
End Sub

A+

Bonjour toutes et tous,

coucou Bruno45 et merci

Un code que j'avais repéré grâce à ThauThème également merci à lui , j'ai modifié et ajouté les 2 colonnes

Macro appliquer une formule dans une macro

Sub appliquer_formule()
Dim DL As Long 'déclare al variable DL (Dernière Ligne)
On Error GoTo 0
With Worksheets("feuil1")  ' onglet Feuill1
DL = Cells(Application.Rows.Count, "a").End(xlUp).Row 'définit la derniere ligne DL de la colonne a (colonne à adapter à ton cas)
Range("C2").FormulaR1C1 = "=YEAR(RC[-2])"
Range("C2").AutoFill Destination:=Range("C2:C" & DL), Type:=xlFillDefault
Range("D2").FormulaR1C1 = "=VLOOKUP(RC[-2],inter,3,TRUE)"
Range("D2").AutoFill Destination:=Range("D2:D" & DL), Type:=xlFillDefault
    Range("A1").Select
End With
End Sub

crdlt,

André