pb d'ajout d'une variable a une constante sur VB [reglé]

Il y a 300 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

Voir les posts : Par défaut Tous Les bonnes notes Les notes insuffisantes

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : pb d'ajout d'une variable a une constante sur VB [reglé]

slevin

Plus d'informations

11-12-2006 à 09:30:28

Bonjour à tous et toutes j'ai un petit soucis avec ma dernière macro sur vb, j'aimerai cacher plusieurs collonne en fonction d'un resultat d'une cellule.
Voici la macro que j'ai enregistrer sur excel:

Sub test()
Dim classe As Single
Dim A As Single

classe = E10
A = 14 + classe
Range("H14" ).Select
ActiveCell.FormulaR1C1 = "1"
Range("I14" ).Select
ActiveCell.FormulaR1C1 = "2"
Range("H14:HA" ).Select
Selection.AutoFill Destination:=Range("H14:HA" ), Type:=xlFillDefault

End Sub

Dans ce test la cellule E10 est l'endroit ou j'obtient le resultat qui me permet de définir le nombre de collonne a cacher.
Les seuls collonne visible doivent être de H14 à H14 + resultat de la cellule E10.
Comme vous pourrez le voir j'ai essayer de resoudre mon problème en enregistrant une macro puis en la bricolant ( car j'ai très peu de connaissance en vb ) .
Quelqu'un pourrait il m'aider ???? ^^
merci d'avance pour toutes vos réponses

Message édité par slevin le 11-12-2006 à 11:43:15

kiki29

Plus d'informations

11-12-2006 à 10:00:12

Masquer

A tester et adapter

Code :

Option Explicit
Sub Tst()
Dim NumCol As Integer, Col2Lettre As String
Dim NbCol As Integer
Application.ScreenUpdating = False
Cells.EntireColumn.Hidden = False
If IsNumeric(Range("E10" )) Then
NbCol = CInt(Range("E10" ))
Select Case NbCol
Case 0
NumCol = 9
Case Else
NumCol = 8 + NbCol
End Select
Col2Lettre = NumCol2Lettre(NumCol)
Columns(Col2Lettre & ":IV" ).EntireColumn.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
Private Function NumCol2Lettre(ByVal NCol As Integer) As String
Dim i As Long, x As Long,s as String
For i = 6 To 0 Step -1
x = (26 ^ (i + 1) - 1) / 25 - 1
If NCol > x Then
s= s & Chr(((NCol - x - 1) \ 26 ^ i) Mod 26 + 65)
End If
Next i
NumCol2Lettre=s
End Function

Message édité par kiki29 le 10-08-2007 à 10:34:25

slevin

Plus d'informations

11-12-2006 à 11:42:22

Masquer

Merci infinniment kiki29 cela fonctionne parfaitement.

Aller à :

FORUM Tom's Hardware » Programmation » VB / VBA / VBS » pb d'ajout d'une variable a une constante sur VB [reglé]

Page générée en 0.293 secondes