Incrementer formule Si (bis)

Je pense de pas avoir été très clair alors je reformule.

Je veux récupérer des cellules pour les rassembler dans une autre.

La condition est que la cellule lièe ne soit pas vide

Voir le fichier pour etre plus clair

Bonjour Naelias

Tu ne veux pas utiliser de macros ?

A+

Je ne sais pas m'en servir

Désolé

Re,

C simple

Tu copies ce code suivant

Sub InscriptionCouleur()
  Dim Col As Long, DCol As Long, Lig As Long, DLig As Long
  Dim Couleur As String
  ' Dernière colonne
  DCol = Cells(1, Columns.Count).End(xlToLeft).Column
  ' Dernière ligne
  DLig = Cells.SpecialCells(xlCellTypeLastCell).Row
  ' Pour chaque ligne
  For Lig = 2 To DLig
    ' Initialiser la couleur
    Couleur = ""
    ' Pour chaque colonne
    For Col = 2 To DCol
      ' Vérifier que la couleur est cochée
      If Cells(Lig, Col) = "x" Then
        ' Récupérer la valeur de la 1ère ligne
        Couleur = Couleur & Cells(1, Col)
      End If
    Next Col
    ' Supprimer la dernière virgule
    If Couleur <> "" Then Couleur = Left(Couleur, Len(Couleur) - 1)
    ' et l'inscrire
    Cells(Lig, 1) = Couleur
  Next Lig
End Sub

Tu vas dans ton classeur, tu fais ALT+F11, cela doit t'ouvrir l'éditeur VBA

Clique droit sur VBA Project -> Insérer -> Module

Double clique sur "Module1" et tu colles le code

Tu fermes l'éditeur VBA

Ensuite tu mets une forme sur ta feuille (n'importe laquelle)

Cliques droit sur la forme -> Affecter une macro

Et tu choisis la seule que tu dois avoir : InscriptionCouleur

Tu n'as plus qu'a cliquer sur la forme et c'est magique

Attention, il faudra enregistrer le classeur au format "xslm" prise en charge des macros

Dis nous

Merci BEAUCOUP de ton aide

Je pense avoir tout fait comme il faut mais ca ne marche pas

Je te joins un extrait du fichier.

Si tu peux regarder je t'en remercie encore

Re

C parfait, sauf que j'ai omis un petit truc, les X en majuscule

il faut juste que tu changes la ligne

      ' Vérifier que la couleur est cochée
     If Cells(Lig, Col) = "x" Then

par

      ' Vérifier que la couleur est cochée
     If UCase(Cells(Lig, Col)) = "X" Then

A+

Ca marche parfaitement

Je te remercie encore

Le VBA ca a l'air bien plus puissant que les formules.

Il faut être informaticien pour essayer de comprendre ou un simple utilisateur de excell comme moi peut essayer ?

Re,

Je te rassure, il ne faut pas être informaticien... 8)

il suffit d'être curieux et d'aimer apprendre de nouvelles choses

Pour le code, tu peux commencer, comme moi au début, par l'enregistreur de macros

Pour cela il faut afficher l'onglet développeur, si ce n'est déjà fait

Et tu cliques sur enregistrer une macro -> dans ce classeur

Ensuite tu exécutes des choses, qui se codent directement dans l'éditeur VBA

Par contre ATTENTION !

Une fois que tu y as goutté... t accro