Discussion :

[Ludovic29400]

Bonjour à tous,

après plusieurs essais, recherche sur le web, je n'arrive pas trouver une fonction pour la problématique suivante:

Dans un tableau d'aide à la réalisation de devis la cellule C1 contient un texte, cette cellule doit remplir automatiquement les cellules fusionner AB70 avec le texte
lorsque l'ensemble AB70 est rempli, que je modifier le texte dans la cellule C1 alors le nouveau texte doit apparaitre dans les cellules fusionner AB71

exemple:

C1= texte 1
AB70= texte1

si

C1= texte 2
AB70= texte 1
AB71= texte 2

et ainsi de suite

En cas de besoin je peut envoyer mon fichier

j’espère que c'est réalisable.

Cordialement
Ludovic

[Belga16]

Procédure non testée, à vérifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub remplirCellules()
    Dim j As Long: j = 1
    Dim k As Long: k = 70
    Dim m As Long: m = 71
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Sheet1")
 
    sh.Range("ab70:ab1000").ClearContents   'effacer les anciennes valeurs
 
    If sh.Cells(j, 3) = "Texte 1" Then
        sh.Cells(k, 28) = "Texte 1"
    Else
        sh.Cells(k, 28) = "Texte 1"
        sh.Cells(m, 28) = "Texte 2"
    End If
    j = j + 1
 
    With sh
        Do While True
            If .Cells(j, 3) = "" Then Exit Do
            If .Cells(j, 3) = "Texte1" Then
                .Cells(Rows.Count, 28).End(xlUp).Offset(1, 0) = "Texte 1"
            Else
                .Cells(Rows.Count, 28).End(xlUp).Offset(1, 0) = "Texte 1"
                .Cells(Rows.Count, 28).End(xlUp).Offset(1, 0) = "Texte 2"
            End If
            j = j + 1
        Loop
    End With
 
    Set sh = Nothing
End Sub

[Ludovic29400]

Bonjour,

Merci d'avoir étudier ma problématique, je vais teste mais faux d'abord que je trouve comment, sur certain fonction Excel, j'arrive à m'en sortir.

Sur celui ci, j'avoue que je ne comprend pas beaucoup et si je comprend bien c'est du VBA.

Au vue de la complexité de VBA à mon niveau, je veut bien transmettre mon fichier à ceux qui voudrais bien travailler dessus

Cordialement

Ludovic

[Belga16]

Pourquoi pas ?!

[Ludovic29400]

Bonsoir Belga16,

Ci-dessous un capture de mon projet Excel que je créer dans le cadre d'un projet d'entreprise



Mon idée de projet est de remplir de façon automatique les cinq classeur qui se trouve à la suite du classeur "Aide au devis.xlsm"

En priver, je vous donne le lien Drive pour avoir les fichier sur lequel je travail

Bonne soirée

[Belga16]

Je n'ai accès qu'en lecture seule;
Il vaut mieux annexer les 5 fichiers ici même utilisant l'icône du "trombone"; ainsi vous multipliez les chances de voir d'autres volontaires vous proposer "la" solution idéale.
Assurez-vous que vos fichiers ne contiennent aucune info confidentielle, mais toutes les info doivent y être, à condition qu'elles soient fictives.