Bonjour à tous,
je suis nouvelle sur le forum et pas douée en VBA. voici mon problème :
J'ai une base excel avec plusieurs lignes pour une même unité de valeur (UV) donc j'ai fait un TCD par UV avec les données qui m'interressent.
ensuite j'ai crée une macro avec une combobox avec liste déroulante afin de choisir les UV et copier leur valeur dans une maquette que je sauvegarde dans un nouveau fichier.
Si l'UV existe dans le croisé tout fonctionne bien mais si l'utilisateur saisie une UV inexistante dans le TCD la macro bug.
j'aimerais mettre un message "UV saisie inexistante" et revenir à la box.
Voici le code
"Dim ChoixUV As Variant
Private Sub CommandUV_Click()
Quelle_UV.Hide
Sheets("1").Select
ChoixUE = ComboBox1.Value
Range("B2").Value = ChoixUV
Range("A6").Select
End Sub
Sub ChoisirUE()
Quelle_UV.Show
Call Macro1
End Sub
Sub Macro1()
Dim UV As Variant
Sheets("1").Select
Range("B2").Select
UV = (ActiveCell.Value)
Application.ScreenUpdating = False
Sheets("TCD").Select
Range("B6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("UV"). _
CurrentPage = UV
..."
Merci d'avance pour votre aide
je suis nouvelle sur le forum et pas douée en VBA. voici mon problème :
J'ai une base excel avec plusieurs lignes pour une même unité de valeur (UV) donc j'ai fait un TCD par UV avec les données qui m'interressent.
ensuite j'ai crée une macro avec une combobox avec liste déroulante afin de choisir les UV et copier leur valeur dans une maquette que je sauvegarde dans un nouveau fichier.
Si l'UV existe dans le croisé tout fonctionne bien mais si l'utilisateur saisie une UV inexistante dans le TCD la macro bug.
j'aimerais mettre un message "UV saisie inexistante" et revenir à la box.
Voici le code
"Dim ChoixUV As Variant
Private Sub CommandUV_Click()
Quelle_UV.Hide
Sheets("1").Select
ChoixUE = ComboBox1.Value
Range("B2").Value = ChoixUV
Range("A6").Select
End Sub
Sub ChoisirUE()
Quelle_UV.Show
Call Macro1
End Sub
Sub Macro1()
Dim UV As Variant
Sheets("1").Select
Range("B2").Select
UV = (ActiveCell.Value)
Application.ScreenUpdating = False
Sheets("TCD").Select
Range("B6").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("UV"). _
CurrentPage = UV
..."
Merci d'avance pour votre aide