Problème de définition d'une plage de cellules
Bonjour à tous,
Tout d'abord, je remercie infiniment tous ceux et celles qui voudront bien m'aider pour l'erreur suivante:
"erreur d'execution 1004" erreur définie par l'application ou l'objet
Cette erreur est affichée en mode "pas à pas" après ma définition de plage "myrange1"
Voici le code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim temp_1 As Integer
Dim coltemp1 As Integer
Dim myrange1 As Range
Dim max1 As Single
Dim ligCI_1 As Integer
Dim ligCF_1 As Integer
With Sheets("calcul")
temp_1 = .Cells(19, 3)
'associe la colonne en fonction de la température1
If temp_1 = "20" Then coltemp1 = 2
If temp_1 = "30" Then coltemp1 = 3
If temp_1 = "40" Then coltemp1 = 4
If temp_1 = "50" Then coltemp1 = 5
If temp_1 = "60" Then coltemp1 = 6
If temp_1 = "80" Then coltemp1 = 7
'défini la ligne de la valeur cherché dans zone de recherche
ligCI_1 = Application.Match(Sheets("calcul").Cells(25, 3).Value, Sheets("viscosity").Range("A:A"), 0)
ligCF_1 = Application.Match(Sheets("calcul").Cells(26, 3).Value, Sheets("viscosity").Range("A:A"), 0)
Set myrange1 = Sheets("viscosity").Range(Cells(ligCI_1, coltemp1), (Cells(ligCF_1, coltemp1)))
End Sub
Je précise que mes variables ligCI_1, ligCF_1 et coltemp1 fonctionnent bien.
Je viens d’effectuer un test où ligCI_1=32 et ligCF_1=46, coltemp1=5
Donc ma plage devrait être de la ligne 32 à 46, colonne "E".
mais j'ai besoin de garder les lignes de début et de fin et la colonne comme variable.
Bonjour Mag42,
aurai-tu un fichier contenant ton code, cela pourrait nous aider à t'éclairer !
Cordia5