Sujet Précédent Sujet Suivant

Problème pour calculer et modifier une feuille excel

DAN1934 Messages postés 4 Date d'inscription dimanche 1 octobre 2023 Statut Membre Dernière intervention 25 juillet 2024 - Modifié le 2 oct. 2023 à 17:25
dysorthographie Messages postés 105 Date d'inscription jeudi 27 janvier 2022 Statut Membre Dernière intervention 27 août 2024 - 4 oct. 2023 à 18:20

Bonjour,

J'ai écris la proc édure suivante elle plante je n'ai pas compris pourquoi ?

quelqu'un peut il m'aider ou le corriger

Merdi d'avance.

Sub signe()

Dim i As Single
Dim mnt As Double

For i = 2 To 116

    If (Range("e & i").Value = "V") Then
    
    mnt = Range("i & i"): Range("k" & i) = mnt
    
    End If
     
Next i

End Sub

A voir également:

Excel appeler cellule autre feuille
Copier automatiquement une cellule excel dans une autre feuille (vba) ✓ - Forum Visual Basic 6
Copier le contenu d'une feuille excel dans une autre - Forum Visual Basic
Séléctionner une cellule dans une autre feuille ✓ - Forum VBA Office (Excel, Word ...)
Vba coller valeur cellule sur une autre cellule avec variable ✓ - Forum Visual Basic 6
La cellule ou le graphique que vous essayez de modifier se trouve sur une feuille protégée ✓ - Forum VB.NET

2 réponses

Réponse 1 / 2

Whismeril Messages postés 19144 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 16 septembre 2024 660
2 oct. 2023 à 12:54

Bonjour

pour tes prochains post merci d'utiliser la coloration syntaxique, comme décrit là https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code

Ce qui t'aurais peut-être permis de constater une source potentielle de plantage ici

mnt = Range("i & i"): Range("k" & i) = mnt

Regarde ce sui est noir, rouge et rose dans chacun de tes "range"'

D'autre part, poster le message d'erreur, la ligne concernée et le contenu des variables, ça aiderait à t'aider.

Réponse 2 / 2

dysorthographie Messages postés 105 Date d'inscription jeudi 27 janvier 2022 Statut Membre Dernière intervention 27 août 2024 3
Modifié le 4 oct. 2023 à 18:26

Bonjour,

comme je passai là par hasard!

Sub signe()
Dim i As Integer
For i = 2 To 116
    If Cells(i, "e") = "V" Then  Cells(i, "k") = Cells(i, "e") ' Cells(i, "k")="V" ???
Next
End Sub

Discussions similaires

[vba] recopier la valeur d'une cellule dans une autre feuille.

Comment appeler une cellule d'une autre feuille

Prendre la valeur d'une cellule dans excel avec vba

[vba] aller chercher des données dans une feuille excel

copier cellule dans autre feuille (vba)

Votre réponse

Discussions similaires