Répéter une formule
Résolu/Fermé- Répéter une formule
- Formule si et - Guide
- Formule excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Formule moyenne excel - Guide
- Excel mise en forme conditionnelle formule - Guide
4 réponses
13 févr. 2023 à 18:14
bonjour,
Je pense qu'il suffit de copier la ligne 8 du second truc à la place de la ligne 9 du premier truc.
Je me demande si la ligne 5 du premier truc a vraiment du sens.
Merci Beaucoup ! ça marche !
Pour la 5 ème ligne !!! le message ! comme on est trois personnes "Utilisateurs" qui s'occupe d'introduire les renseignements vers la fiche clients ! c'est juste pour dire d'une autre façon "Est ce que vous êtes sure de finaliser" pour ne pas utiliser le bouton à la légère. lol
en tout cas merci Monsieur !
13 févr. 2023 à 19:21
Ma question était à propos de cette cinquième ligne:
If Dl = 10 Then Dl = 2
j'ai compris ! je me suis trompé !
fallait juste mettre
If DI = 2
qui veut dire à partir de la ligne 2 ! c'est ça normalement ou je dois la supprimer totalement ?
14 févr. 2023 à 09:32
Plutôt alors
If Dl < 2 Then Dl = 2
j'ai finis par avoir cela
Dim plage As Range
Dim R As Range
With Sheets("Fiche Clients")
Dl = .Range("C" & Rows.Count).End(xlUp).Row + 1
If Dl < 2 Then Dl = 2
rep = MsgBox("Voulez-vous vraiment enregistrer ?", vbYesNo, "Enregistrement")
If rep = vbYes Then
.Range("C" & Dl).Value = Range("D10").Value
.Range("D" & Dl).Value = Range("D11").Value
.Range("F" & Dl).Value = Range("D12").Value
.Range("G" & Dl).Value = Range("D13").Value
.Range("H" & Dl).Value = Range("D14").Value
.Range("I" & Dl).Value = Range("D15").Value
.Range("E" & Dl).Value = Range("B10").Value
.Range("J" & Dl).Value = Range("A8").Value
End If
End With
End Sub
Merci infiniment ! pour votre aide !