Recherche:

Bonjour Arcvif,

Il semblerait que les données ne soient pas cohérentes ...
En supposant que le CA annuel et les pourcentages par semestre sont corrects, les CA par semestre sont erronés.

La...

Salut,

Il faut remplacer:

If Sheets("Database").Range(Cells(i, 31)) = "Evaluation avec visite" Then
Par:

If Sheets("Database").Cells(i, 31) = "Evaluation avec visite" Then

Salut,

Il faut "merger" la première ligne et ensuite la copier/coller sur l'ensemble de la plage.

Effectivement c'est beaucoup mieux.

Salut,

Avec la chaine de caractère en A1 et la formule en B1:

Option Explicit

Private Sub Recherche()
[B1].FormulaR1C1 = _
...

Je pense que tu es en mesure d'adapter le code à ton besoin.

Salut,

Utiliser une boucle pour parcourir les valeurs n'est pas recommandé.
Utilise plutôt la fonction Find().

Un exemple de code avec cette fonction:

Option Explicit

Private Sub...

Private Sub Recherche()
Dim rngC As Range
Set rngC = ThisWorkbook.Worksheets("feuil6").Range("A5:AV1089").Find(What:=ListBoxA1a.Value)
If rngC Is Nothing Then
Debug.Print ("Valeur non...

Salut,

Il n'est pas possible de déclarer une cellule en constante car le contenu de la cellule peut changer.

Une autre manière de voir les choses:

Public Const cstA As String = "$A$1"
...

Salut,

Plutôt que de passer par une boucle de recherche regarde du côté de la fonction: FIND().

Par exemple:

Private Sub Recherche()
Dim rngC As Range
Set rngC =...

Salut,

Pas sur d'avoir la bonne méthode mais tu peux utiliser la fonction suivante pour récupérer la formule:

Public Function GetFormula(Cell As Range) As String
GetFormula = Cell.Formula...

Et comme ça ?

With ThisWorkbook.Worksheets("Pilotage")
.PageSetup.PrintArea = .Range("A1:V44").Address
.PageSetup.Draft = False
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False...

Étonnant.

Peux-tu joindre ton fichier "Excel" ?

Salut,

Et avec ce code ?

Option Explicit

Private Sub Imprimer()
With ThisWorkbook.WorkSheets("Pilotage")
.PageSetup.PrintArea = .Range("A1:V44")
.PrintOut Copies:=1,...

Salut,

A titre d'exemple:

Option Explicit

Private Sub Copier()
Worksheets("Feuil1").Range("AA").Copy Worksheets("Feuil2").[A3]
With Worksheets("Feuil2").[A3].CurrentRegion
...

Salut,

Et avec ce code ?

Sub Macro1()
For i = 4 To 129
Cells(i, "Q").FormulaR1C1 = Cells(i, "B") & Cells(i, "E") & Cells(i, "C")
Next i
End Sub

Essaie de comprendre ce code:

Option Explicit

Private Sub CommandButton1_Click()
Me.ListBox3.Visible = True
Me.ListBox3.RowSource = "feuil1!A1:A3"
End Sub

Private Sub ListBox3_Click()

Oui essaie par toi même et je t'aiderai.

Tu devrais y jeter un œil : http://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-G

L'idée est de créer une double boucle qui parcours pour chaque élève de la classe considérée la liste des...

Salut,

Que se passe t-il lorsque que l'on retrouve le même prénom dans plusieurs classes ?

Dans l'onglet "VALEUR" il faut que tu mettes la valeur 1 dans la cellule A1.

Peux-tu joindre ton fichier "Excel" ?

Option Explicit

Private Sub cmbMois_Click()
Worksheets("AFFICHER").Cells(1, Worksheets("VALEUR").[A1]) = Worksheets("RESULTAT").[C4]
Worksheets("VALEUR").[A1] = Worksheets("VALEUR").[A1] + 1...

Par exemple:

Option Explicit

Private Sub cmbMois_Click()
Worksheets("DONNEES").Cells(1, Worksheets("VALEUR").[A1]) = "AAA"
Worksheets("VALEUR").[A1] = Worksheets("VALEUR").[A1] + 1
End...

Salut,

Il faut que tu stockes l'état du bouton de commande.
De 1 à 12 par exemple dans un onglet spécifique ou ailleurs pour que la valeur stockée corresponde au numéro de la colonne.