Modifier les macros d'un fichier excel

Version imprimable

26/11/2010, 23h53
tritop

1 pièce(s) jointe(s)

Modifier les macros d'un fichier excel

Bonsoir,

J'aurais besoin de l'aide d'un programmeur sur visual basic.

Je m'explique : j'aimerais modifier un fichier excel qui utilise des macros. C'est un peu trop compliqué pour moi, car je suis débutant !

Ce fichier excel a été programmé pour être un jeu, plus précisément un casse-tête. Ce casse tête comporte 13 cellules en hauteur et 11 en largeur, et je voudrais modifier cet aspect du jeu pour qu'il contienne 10 cellules en hauteur et 20 en largeur.

Comment faire ?

voici le fichier concerné : Pièce jointe 69901

Merci d'avance pour vos réponses.

Bonne soirée,

Bonjour,
Il serait plus judicieux d'utiliser des variables pour le nombre de couleurs , pour les lignes et les colonnes
par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
 
   For i = 0 To 142
Choix:
        Couleur = Int((5 * Rnd) + 1)
        Compte(Couleur) = Compte(Couleur) + 1
        If Compte(Couleur) > Int(143 / 5) + 1 Then
            Compte(Couleur) = Compte(Couleur) - 1
            GoTo Choix
        End If
        AffecteCouleur i, Couleur
    Next i

pourrait être remplacer par

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 NbCouleurs = 5
 MaxLigne = 11
 MaxCOlonne = 13 
 
 For ligne = 1 To MaxLigne
  For colonne = 1 To MaxColonne
   Do
     Couleur = Int((NbCouleurs * Rnd) + 1)
     Compte(Couleur) = Compte(Couleur) + 1
      If Compte(Couleur) > Int((MaxLigne * MaxColonne)/ NbCouleurs) + 1 Then
            Compte(Couleur) = Compte(Couleur) - 1
      Else
        Exit Do
       End If
    Loop
    Cells(ligne,colonne).Interior.ColorIndex = Couleur
  Next colonne 
 Next ligne

ce qui permet de définir sans modifier tout le code le nombre de lignes, de colonnes et de couleurs ce qui pourrait correspondre à differents niveaux de jeu
Le reste du code est à adapter

1 pièce(s) jointe(s)

Problème avec les colonnes

Bonjour à tous,

J'ai réussi à régler le nombre de ligne (10) comme je le souhaitais, seulement j'ai encore un beug avec les colonnes !

En effet, je voudrais 20 colonnes et je n'arrive pas à augmenter la range des cellules visibles, les cellules pris en compte sont A1 à M13 alors qu'il faudrait qu'elles soient de A1 à V13.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Saved = True End Sub Private Sub Workbook_Open() Application.ScreenUpdating = False Range("A1:V13").Select ActiveWindow.Zoom = True Range("A1").Select Application.ScreenUpdating = True End Sub
Pour mieux comprendre, je vous joins le fichier : Pièce jointe 69918

Merci d'avance