Contenu récent par piga25

Bonjour, Pourquoi ne pas supprimer en premier les doublons comme cela Données --> Supprimer les doublons --> Sélectionner tous --> Valider Comme cela vos formules second tableau affiche le bon résultat

Bonjour à tous, Dans la feuille formulaire il faut une colonne avec les caractéristiques de chaque équipement. Private Sub cboEquipements_Change() ' With cboEquipements If .ListIndex > -1 Then Me.txtCaractéristiques.Value = Sheets("Formulaire").Range(.RowSource)(.ListIndex +...

Bonjour, Il y a bien les équipements mais ou sont les caractéristiques de ceux ci?

Bonjour, Avec une validation de donnée qui signale si le nom existe déjà.

Bonjour, Un essais comme cela suivant un code de BOISGONTIER Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set zsaisie = Range("B2:F7") If Not Intersect(zsaisie, Target) Is Nothing And Target.Count = 1 Then Ligne = Cells(Target.Row, "a") Set d =...

Bonjour, Pour info réglementation Européen ou celle du Québec?

Lequel, celui du post #11 ou un autre ?

RE Sous Excel 2003, SIERREUR n'existe pas, donc mettre cela: =SI(ESTERREUR(SI(B75=INDIRECT("CI"&B56-$B$56+2);"x";0));0;SI(B75=INDIRECT("CI"&B56-$B$56+2);"x";0))

Bonjour, la fonction indirect permet d'indiquer la référence d'une cellule. Dans ton cas, les données sont dans la colonne "CI", reste à définir après la valeur de la ligne. On obtient cette valeur en prenant la date du mois considéré à laquelle il faut soustraire le nombre de jours depuis le...

Bonjour, Un essai avec cela Sub HauteurLigneAuto() Dim I As Long Selection.Rows.AutoFit For I = 4 To 2000 If Selection.Rows(I).RowHeight < 45,1 Then Selection.Rows(I).RowHeight = 45,1 Next I Range("A1").Select End Sub Attention s'il y a un texte long dans une colonne...

re @Staple1600 Entièrement d'accord avec toi, c'était juste de l'humour, une macro qui écrit la formule donnée.

Bonjour à tous, Vu que les formules fonctionnent très bien mais que Marvin le souhaite en VBA ???? un code qui écrit alors la formule, code à mettre dans la feuille. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Range("C10").FormulaR1C1 = _...

Re, Afin de pouvoir le répéter dans chaque tableau mensuel, mettre ceci:=SIERREUR(SI(B75=INDIRECT("CI"&B56-$B$56+2);"x";0);0)

Bonjour, Avec cela : =INDEX(ABT!C6:N6;;MOIS(ABT!A1))

Bonjour, A mettre en B74 et à étirer vers la droite: =SI(B75=INDIRECT("CI"&COLONNE());"x";0)