Public Function Trier_Donnees() Dim Str As String, MaFeuille As Worksheet Str = Sheets("Feuil1").Range("B12").Value Select Case Str Case "" 'Si B12 est vide Exit Function 'pas la peine d'aller plus loin Case "12" Set MaFeuille = Sheets("Feuil2") Case "15" Set MaFeuille = Sheets("Feuil3") End Select With MaFeuille 'la method qui suit permet de transférer les données d'une plage non contiguë sur une plage ' contiguë ainsi que de les tranposer. Sheets("Feuil1").Range("A12,D12:E12").Copy .Range("A1:A3").PasteSpecial xlPasteValues, , , True End With End Function
Public Function Trier_Donnees() Dim Str As Integer If IsNumeric(Sheets("Feuil1").Range("B12").Value) = True Then Str = CInt(Sheets("Feuil1").Range("B12").Value) Else MsgBox "La valeur en B12 Doit être une valeur Numerique !", vbExclamation Exit Function End If If Str = 0 Then Exit Function If CIntStr = 12 Then Sheets("Feuil2").Range("C1").Value = Str End If If Str = "15" Then Sheets("Feuil3").Range("B1").Value = Str End If End Function
Public Function Trier_Donnees() Dim Str As Integer, MaFeuille As Worksheet 'si la valeur en B12 peut être interprétée comme une valeur numérique If IsNumeric(Sheets("Feuil1").Range("B12").Value) = True Then Str = CInt(Sheets("Feuil1").Range("B12").Value) Else MsgBox "La valeur en B12 Doit être une valeur Numerique !", vbExclamation Exit Function End If Select Case Str Case 0 'Si B12 est vide la conversion CINT() donnera la valeur 0 à la variable Str Exit Function 'pas la peine d'aller plus loin Case 12 Set MaFeuille = Sheets("Feuil2") Case 15 Set MaFeuille = Sheets("Feuil3") End Select With MaFeuille 'la method qui suit permet de transférer les données d'une plage non contiguë sur une plage ' contiguë ainsi que de les tranposer. Sheets("Feuil1").Range("A12,D12:E12").Copy .Range("A1:A3").PasteSpecial xlPasteValues, , , True End With End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question